userform copy paste

[chris2727272727]

Dim a
Dim activecell

Dim keyboard
Dim tina
Dim bina


On Error Resume Next

i = 1
UserForm2.TextBox1.MultiLine = True
UserForm2.Caption = "First Aid Training Overdue"
lastrow = Range("c65536").End(xlUp).Row
For Each cell In Range("f9:m" & lastrow)
a = cell.Row
Application.ScreenUpdating = False
If cell.Value < DateTime.Date And cell.Value > DateTime.Date - 365 And cell.Font.Strikethrough = False Then
Application.Union(Range("a" & a, "d" & a), cell).Copy

UserForm2.TextBox1.Paste
End If
Next
Application.ScreenUpdating = True
UserForm2.Show
End Sub


I have the above code the trouble is that when it runs it copies all the line to the text box i only want it to copy say for example it picks an overdue date on "a7" i want it to copy a5:d5 inclusive and a8 but instead it copies all of the row to the left of the cell it finds ie a5:a8 inclusive.

 

[erik.van.geit]

Hello, chris2727272727,

Seems to me like you are messing up some references (a5 ... a7 ?)in your explanation and also you write "left" while I think you mean "right". So perhaps I'm missing something?

this line can be problematic
Application.Union(Range("a" & a, "d" & a), cell).Copy
example: this will produce an error
Union(Range("A1:D1"), Range("D2")).Copy

please tell again what you're trying to do

kind regards,
Erik

 

[chris2727272727]

Copy Paste

It only copies when the condition is true ie it scolls through the sheet and copies when the condition is true

 

[erik.van.geit]

please tell again what you're trying to do