I want a help on this:
I have a list object with cols A:T in sheet Cab_Sch
the header is on Row 4 and values are in Row 5 and below. In also have a form button which when clicked copies ranges from a sheet MasterList to destination sheet Cab_Sch in the following cols: A:E and F:G and M in as many rows in Cab_Sch as in MasterList.
Code: Select all
Sub CopyData()
Dim r As Long
Dim m As Long
Dim t As Long
Application.ScreenUpdating = False
Worksheets("Loop_Data").Range("5:50000").Clear
t = 4
m = Range("W" & Rows.Count).End(xlUp).Row
For r = 5 To m
If Range("I" & r).Value <> 0 Then
t = t + 1
worksheet.Masterlist. Range("H" & r).Copy _
Destination:=Worksheets("Cab_Sch").Range("A" & t)
End If
Next r
Application.ScreenUpdating = True
End Sub
Question: Are the formulas / drop downs copied in the list object for all the rows that are copied in the sheet Cab_Sch?
Please advise
best regards
Vilas Desai