Çözüldü puantaj verilerini listelemek

[nongeyikm]

Merhabalar,

Her personelin C1 hücresinde sicil nosu yer armakta. bazı personellerin nakil vs. gibi nedenlerle 2 adet sicili olmakta. C1 hücresi dışında D1 hücresine 2. sicilini yazmak sureti ile;

Aşağıdaki makro ile, C1 ve C2 hücrelerine girilen veriye göre listeleme yapılıyor. Yapmak istediğim ise C1 ve C2 deki verilere göre listeleme yapıldığında, D1 ve D2 deki değerlere göre de listeye devam etsin.

Kısaca D1 ve D2 hücre referansları makroya dahil edilecek

Saygılar,


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Ahmet]

Selam,
Örnek dosya paylaşır mısınız?

 

[nongeyikm]

Selam,
Örnek dosya paylaşır mısınız?

Örnek dosya hazırlamak biraz zaman alır. makroda aşağıdaki referansları D1 ve D2 için de aynı şekilde yapacak

sicil_no = s2.[C1]
sicil_veri = s2.[C2]

 

[Refaz]

a = Range("D15" & Cells(Rows.Count, 4).End(3).Row) Set s1 = Sheets("puantajlar") Set s2 = Sheets("Listele") Set dic1 = CreateObject("scripting.dictionary") Set dic2 = CreateObject("scripting.dictionary")

a = s1.Range("B15:B" & s1.Cells(Rows.Count, 4).End(3).Row)

Alttaki yada üstteki a olanın biri galiba fazlalık..Örnek eklediğiniz zaman bakılır.

 

[Refaz]

a = s1.Range("B15:B" & s1.Cells(Rows.Count, 4).

Ayrıca 4 yerinede 2 yazılması gerek.