Somebody created this macro for me to add information from one page and drop it onto another page each time as user add information which basically should create a small database. The macro was working fine but it doesnt seem to be working any more any help would be appericated, thanks
Sheet16_start = "B1" 'Start Cell for Second Sheet.
Sheet16.Activate
Range(Sheet16_start).Activate
Cell = "foo" 'creates a tmp value for loop
Range(Sheet16_start).Activate
'Keeps going through until blank cell is found
Do Until Cell = ""
Cell = ActiveCell.Text
If Cell <> "" Then
ActiveCell.Offset(0, 1).Select
End If
Loop
For i = 1 To 20 '20 being the number of cells to copy
Sheet26.Activate
Sheet26.Range("B" & i).Select 'Go to the cell dicated to the loop
txt = Sheet26.Range("B" & i).Text 'select the cell
Sheet16.Activate
ActiveCell.Value = txt
ActiveCell.Offset(1, 0).Select
Next
Sheet1.Activate
End Sub
Sheet16_start = "B1" 'Start Cell for Second Sheet.
Sheet16.Activate
Range(Sheet16_start).Activate
Cell = "foo" 'creates a tmp value for loop
Range(Sheet16_start).Activate
'Keeps going through until blank cell is found
Do Until Cell = ""
Cell = ActiveCell.Text
If Cell <> "" Then
ActiveCell.Offset(0, 1).Select
End If
Loop
For i = 1 To 20 '20 being the number of cells to copy
Sheet26.Activate
Sheet26.Range("B" & i).Select 'Go to the cell dicated to the loop
txt = Sheet26.Range("B" & i).Text 'select the cell
Sheet16.Activate
ActiveCell.Value = txt
ActiveCell.Offset(1, 0).Select
Next
Sheet1.Activate
End Sub