Bul tabloya aktar

[omeryılmaz]

Arkadaşlar Herkese selamlar
Ekte Gönderdiğim çalışmamda Değişken verileri Standart Tabloda bularak yerine yerleştirmeyi biraz yaptım ama tam olmadı.
Yardımlarınız için şimdiden şükranlarımı sunuyorum..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton2_Click()
    Dim X As Integer, Y As Byte, CEZAKODU_BUL As Range, BUL As Range
    
    Range("CG2:CV65536").ClearContents
    
    For X = 2 To Range("BA65536").End(3).Row
        Set CEZAKODU_BUL = Range("CF:CF").Find(Cells(X, "BA"), LookAt:=xlWhole)
        If Not CEZAKODU_BUL Is Nothing Then
            For Y = 59 To 74
                If Cells(X, Y) <> "" Then
                    Set BUL = Range("CG1:CV1").Find(Cells(1, Y), LookAt:=xlWhole)
                    If Not BUL Is Nothing Then
                        Cells(CEZAKODU_BUL.Row, BUL.Column) = Cells(X, Y)
                    End If
                End If
            Next
        End If
    Next
            
    Set CEZAKODU_BUL = Nothing
    Set BUL = Nothing
            
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[omeryılmaz]

Teşekkürler Hocam