4 Comments on Copy Entire Rows to Another Spreadsheet Based on Cell Criteria

Larry on Tue, 29th Sep 2009 7:26 pm


Similar question.

I am trying to create a Grade Book for my Wife (a Teacher, elementary grade).
Most of the grade books I have found are very low level and limited data.

What I need to do is,
Copy rows and cells of data to New Sheets Created.
On the main Sheet, a button to create a new sheet.
Each sheet is to be named as per the project/subject matter, and the data is for weekly based tests and assignments.

The info to copy is just the student name/info and teacher data, as well as the weekly info as headers in the columns.

I wish for this option to happen when the button is clicked (either run a Macro or based on VBA coding). Once the teacher inputs grade points then code runs to amortize the totals to the main page for general info that can be printed as data info for the parents.

Thanks
Larry

RENEE on Thu, 22nd Oct 2009 7:07 pm


I AM NEW TO THE EXCEL SPREADSHEETS. MY EMPLOYER, HOWEVER REQUIRES IT FOR CERTAN JOBS. FOR INSTNACE ONE THAT OFTEN STUMPS ME IS A SPREADSHEET THAT WE USE FOR MONEY AMOUNTS WITH VISA, MASTERCARDS ETC.. CHECKS, AND CASH. I CANT SEEM TO COPY A NEW FILE FROM THE BLUE PRINT. PLEASE HELP ME FIGURE THIS OUT…

RENEE on Thu, 22nd Oct 2009 7:18 pm


SORRY FORGOT TO MENTION THAT WE WORK FROM ONE DAY TO THE NEXT 10/22/2009 1023/2009, AND SO ON ALL I WANT TO DO IS COPY THE FROM THE ORIGINAL WITHOUT BALANCE…

vp shokeen on Thu, 11th Feb 2010 11:32 am


sir,
i want to copy a index no with a range in the row from sheet2 to between the index no. less then and greater then in sheet1 rest of the code is working to my needs.
code attached as under
pl.help me

shokeen

Option Explicit
Sub Macro1()
‘
‘ Macro1 Macro
‘ Macro recorded 09/02/2010 by OIC
‘ Dim Rng1A As String

Dim k, j, l, i
Dim RNG As Range
Dim tt
Dim Rng2 As String
Dim Rng3A As String
Dim Rng3B As String
Dim Rng1A As String
Dim Mach As String
Dim msg
Dim msgcounter(50)
Dim CCC As String
Dim BB As String
Dim resp

Dim ro As Integer

Do
ro = ro + 1
tt = Sheet3.Cells(ro, 1)
Loop Until tt = “”
ro = ro - 1
Sheets(”SHEET1″).Select
Columns(”C:C”).Select
Selection.Insert Shift:=xlToRight

For k = 1 To 25

For i = 1 To 25
Mach = “N”
If Sheet2.Cells(k, 1) “” Then If Sheet1.Cells(i, 1) “” Then If Sheet2.Cells(k, 1) = Sheet1.Cells(i, 1) Then Mach = “Y”

If Mach = “Y” Then
Beep
ro = ro + 1

Rng1A = Cells(k, 4).Address
Rng3A = Cells(i, 5).Address
Rng3B = Cells(i, 2).Address
Sheets(”SHEET1″).Range(Rng3A) = Sheets(”Sheet2″).Range(Rng1A).Value
Sheets(”SHEET1″).Range(Rng3B) = Sheets(”sheet2″).Cells(k, 5).Value + (Cells(i, 2))
Exit For
End If

Next
msg = “dealer code not found ” & Sheet2.Cells(k, 1) & ” ROW NO.” & k

If i = 26 Then
resp = MsgBox(msg, vbYesNo)
‘ If RESP = vbYes Then

For l = 1 To 25
If Sheet2.Cells(k, 1) < Sheet1.Cells(l, 1) Then

Rows(l - 1 & “.” & l - 1).Select
Selection.Insert Shift:=xlDown
With Sheet2
‘ Sheets(”Sheet2″).Select
BB = Sheet2.Cells(k, 1).Address ‘ & “:” & Sheet2.Cells(K, 10).Address
Range(BB).Select
Selection.EntireRow.Copy
End With
Sheets(”Sheet1″).Select
CCC = Cells(l - 1, 1).Address & “:” & Cells(l - 1, 4).Address
‘ Range(CCC).Select
Sheets(”SHEET1″).Range(CCC) = Sheets(”sheet2″).Range(BB)
‘ Selection.XLPaste
‘ Selection.Paste
‘Selection.xlPaste
Exit For
End If

Next
‘ End If
j = j + 1
msgcounter(j) = msg

End If

Next
For k = 1 To j
MsgBox msgcounter(j) & ” WANT TO ADD ROW NO.”, vbYesNo
If vbYes Then
Beep
End If
Next
End Sub

Have another excel answer or questions for this problem ?
Feel free to post it here..