listeleme raporu

[igultekin2000]

iyi akşamlar;
Sayfa1' de A.Kod, B.Ünvan, C.Vergi no ve D.TC no alanlarından oluşuyor. burası her ay güncelleniyor. burada oluşan listeyi, LISTE çalışma sayfasına A.ünvan, B. Vergi no / TC no ve C Hesap kodu şeklined listelemek istiyorum. bu şablonuda başka işlemde kullanıyorum. Makro olarak yapmaya çalışmama rağmen yapamadım. Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Sub Bilgileri_Guncelle()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Bul As Range
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("LISTE")
    
    Son = S1.Cells(Rows.Count, 1).End(3).Row
    
    For X = 2 To Son
        Set Bul = S2.Range("C:C").Find(S1.Cells(X, 1), , , xlWhole)
        If Not Bul Is Nothing Then
            If S1.Cells(X, 2) <> Bul.Offset(0, -2) Then
                Bul.Offset(0, -2) = S1.Cells(X, 2)
            End If
            If S1.Cells(X, 3) & S1.Cells(X, 4) = Bul.Offset(0, -1) Then
                Bul.Offset(0, -1) = S1.Cells(X, 3) & S1.Cells(X, 4)
            End If
        Else
            Satir = S2.Cells(Rows.Count, 1).End(3).Row + 1
            S2.Cells(Satir, 1) = S1.Cells(X, 2)
            S2.Cells(Satir, 2) = S1.Cells(X, 3) & S1.Cells(X, 4)
            S2.Cells(Satir, 3) = S1.Cells(X, 1)
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    Set Bul = Nothing
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "Güncelleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[igultekin2000]

Deneyiniz.

Elinize sağlık, sorunsuz çalışıyor, teşekkür ederim. iyi çalışmalar. bir konuyu merak ediyorum, işlem yapılacak sayı değerleri işlem yaparken metin değeri olarak aktarmak için koda bir ilave yapılabilir mi, normalde işlem yapılan sütunu metne çevirince de işimi görüyor.