VBA copy values to month column

[jocker_boy]

Hi,

It may be easy, but i'm a noob in VBA.

I have my month in cell K1.
In row 3 i have all months (jan/21, fev/21. mar/21, etc...)
I have my values in column (K6: lastrow).

I need to copy my values in (K6: last row)
Check the month in K1
and copy those values to the column where is the same month, starting in row 6.
In the example below, i need to copy the values (5,9,4) and copy to the column (O) where the month is a match to my month in K1.

K	L	M	N	O	P
abr/22
Values	jan/22	fev/22	mar/22	abr/22	mai/22
5				5
9				9
4				4

 

[My Aswer Is This]

You have:
abr/22
In Range("K1")

But then it looks like you have months in Row 2 not row 3

 

[jocker_boy]

You have:
abr/22
In Range("K1")

But then it looks like you have months in Row 2 not row 3

It's a mistake. they are in row 3.
I finally did it

Sub CopyDate()

Dim rng1 As Range
Dim strSearch As Date
Dim lr As Long

strSearch = Range("K1").Value

Set rng1 = Rows(3).Find(CDate(strSearch), , xlFormulas, xlWhole)

If Not rng1 Is Nothing Then

'MsgBox ("Contains date")
lr = Range("K" & Rows.Count).End(xlUp).Row
Range(Cells(4, rng1.Column), Cells(lr, rng1.Column)).Value = Range("K4:A" & lr).Value

Else

MsgBox ("Does not contain date")

End If

End Sub

 

[My Aswer Is This]

It's a mistake. they are in row 3.
I finally did it

Sub CopyDate()

Dim rng1 As Range
Dim strSearch As Date
Dim lr As Long

strSearch = Range("K1").Value

Set rng1 = Rows(3).Find(CDate(strSearch), , xlFormulas, xlWhole)

If Not rng1 Is Nothing Then

'MsgBox ("Contains date")
lr = Range("K" & Rows.Count).End(xlUp).Row
Range(Cells(4, rng1.Column), Cells(lr, rng1.Column)).Value = Range("K4:A" & lr).Value

Else

MsgBox ("Does not contain date")

End If

End Sub

Glad to see you have things working.
If you wrote all this code yourself glad to see your learning Vba