Makroda Düzenleme

[1Al2Ver]

Merhaba,

Aşağıdaki makro ; Kendi sayfasında (Yemek_Listesi) listeleme yapıyor,

Ben ise ; Listelemeyi "Yemek_Listesi" isimli sayfadan alarak "Grup" sayfası isimli sayfada yapsın istiyorum.

İlave kodu rica ediyorum.

Sub YmkListesiListele()
Application.ScreenUpdating = False
    Set dict = CreateObject("Scripting.Dictionary")
    Range("D28:D" & [D28].End(xlDown).Row).ClearContents
    a = Range("C3:K25").Value
        For Each b In a
        If b <> "" Then
            dict(b) = ""
        End If
        Next b
    [D28].Resize(dict.Count, 1) = Application.Transpose(dict.keys)
Application.ScreenUpdating = True
End Sub

 

[PLİNT]

Merhaba
Şöyle olabilir;

 [SIZE="2"]Sub YmkListesiListele()
Set s1 = Sheets("Yemek_Listesi")
Set s2 = Sheets("Grup")
Application.ScreenUpdating = False
    Set dict = CreateObject("Scripting.Dictionary")
    s2.Range("D28:D" & [D28].End(xlDown).Row).ClearContents
    a = s1.Range("C3:K25").Value
        For Each b In a
        If b <> "" Then
            dict(b) = ""
        End If
        Next b
    s2.[D28].Resize(dict.Count, 1) = Application.Transpose(dict.keys)
Application.ScreenUpdating = True
End Sub[/SIZE]

 

[1Al2Ver]

Sayın PLİNT merhaba,

Teşekkür ederim, kod gayet güzel çalışıyor.

Saygılarımla.