Bir sutundaki verileri şartlı olarak başka sutuna sktarma

[birfuzuli]

Arkadaşlar bir sutundaki verileri seçtiğimiz aya göre diğer sayfadaki uygun sutuna aktaracak bir koda ihtiyacım var. Dosya ektedir. Teşekkürler...

 

[Ömer]

Arkadaşlar bir sutundaki verileri seçtiğimiz aya göre diğer sayfadaki uygun sutuna aktaracak bir koda ihtiyacım var. Dosya ektedir. Teşekkürler...

Merhaba,

Bu şekilde deneyin.

Sub Aktar()
 
    Dim c As Range
 
    With Sheets("aylar")
        Set c = .[B6:M6].Find([F4], , xlValues, xlWhole)
        If Not c Is Nothing Then
            Range("B7:B16").Copy .Cells(7, c.Column)
        End If
    End With
 
End Sub

.

 

[birfuzuli]

teşekkürler üstad...