bul ve yerleştir

[Hacı Bayram ÖZKAN]

arkadaşlar isteğimi ekli dosyada anlattım yardımlarınız için teşekkürler.

 

[uzmanamele]

merhaba

düşeyara ile yapsanız olmaz mı, makro ile olması şart mı?

 

[İhsan Tank]

arkadaşlar isteğimi ekli dosyada anlattım yardımlarınız için teşekkürler.

merhaba
bazı isimlerin sonunda boşluklar mevcut onları kaldırınız veya tüm verileri uyumlu hale getiriniz

Sub sıralıdüşey()
Dim i As Long
i = Cells(65536, "C").End(xlUp).Row
For i = 2 To i
Cells(i, "D") = WorksheetFunction.VLookup(Range("C" & i).Value, Sheets("Sayfa1"). _
Range("B2:I65536"), 7, 0)
Next i
MsgBox WorksheetFunction.CountA(Range("D2:D65536")) & " Tane Veri Bulundu", _
vbInformation
End Sub

bu işinizi görür mü_?

 

[quesh]

Dosyanız ektedir.

 

[Hacı Bayram ÖZKAN]

DENEME ÖRNEĞİ TAM ÇALIŞIYOR ANCAK; sıra no: 1,2, 3, 4, olmasını istiyorum, birde satırın 15. satırdan itibaren yazmasını istiyorum, oysaki 2. satırdan yazıyor, üst satırlarda bu formatın üst yazısı olacak buna bakarmısınız, ihsan bey sizin makro da sadece IBAN'ı alıyor, TC'yi almıyor, Sizdede 2. satırdan itibaren yazıyor. Bunu kitap2 dosyasında gösterdim 14. satırdan itibaren yazacak

 

[İhsan Tank]

DENEME ÖRNEĞİ TAM ÇALIŞIYOR ANCAK; sıra no: 1,2, 3, 4, olmasını istiyorum, birde satırın 15. satırdan itibaren yazmasını istiyorum, oysaki 2. satırdan yazıyor, üst satırlarda bu formatın üst yazısı olacak buna bakarmısınız, ihsan bey sizin makro da sadece IBAN'ı alıyor, TC'yi almıyor, Sizdede 2. satırdan itibaren yazıyor. Bunu kitap2 dosyasında gösterdim 14. satırdan itibaren yazacak

merhaba
bunu dener misiniz

Sub sıralıdüşey()
Dim i As Long
i = Cells(65536, "C").End(xlUp).Row
For i = 15 To i
Cells(i, "D") = WorksheetFunction.VLookup(Range("C" & i).Value, Sheets("Sayfa1"). _
Range("B2:I65536"), 7, 0)
Cells(i, "B") = WorksheetFunction.VLookup(Range("C" & i).Value, Sheets("Sayfa1"). _
Range("B2:I65536"), 4, 0)
Next i
MsgBox WorksheetFunction.CountA(Range("D15:D65536")) & " Tane Veri Bulundu", _
vbInformation
End Sub

başka ne istediğinizi lütfen daha açık yazınız

 

[Hacı Bayram ÖZKAN]

Teşekkürler ihsan bey eksik olmayın; kendi dosyamda isteğimi anlatmıştım ama deneme dosyası oluşturulurken baştan başlanmış. Sitede emeği geçen herkese teşekkürler.

 

[Hacı Bayram ÖZKAN]

İhsan şey şöyle bir şeyde olabilir mi; Eğer yazdığımız isim yok ise; makro hata veriyor, bunu önlemek için 2 tane veri bulundu 1 tane bulunamadı gibi olsa nasıl yazılır. yani oluşturduğumuz listede örneğin "ALİ" yazdık ali ismide yok, bunun için 1 tane veri bulunamadı yazmasını sağlarmısınız. Çünkü ismin karşılığı olmayınca hata veriyor.

 

[halit3]

Alternatif kod

Sub bul_aktar()
sat = 0
sat1 = 0
For r = 15 To Worksheets("Sayfa2").Cells(Rows.Count, "c").End(3).Row
aranan1 = WorksheetFunction.Trim(Sheets("Sayfa2").Cells(r, "c").Value)
If Sheets("Sayfa2").Cells(r, "c").Value <> "" Then
deg = 0
For i = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row
aranan2 = WorksheetFunction.Trim(Sheets("Sayfa1").Cells(i, "b").Value)
deg1 = 0
If aranan2 = aranan1 Then
sat = sat + 1
Sheets("Sayfa2").Cells(r, "a").Value = sat + sat1
Sheets("Sayfa2").Cells(r, "b").Value = Sheets("Sayfa1").Cells(i, "e").Value
Sheets("Sayfa2").Cells(r, "d").Value = Sheets("Sayfa1").Cells(i, "h").Value
deg = 1
deg1 = deg1 + 1
End If
Next i
End If
If deg = 0 Then
sat1 = sat1 + 1
Sheets("Sayfa2").Cells(r, "a").Value = sat + sat1
Sheets("Sayfa2").Cells(r, "b").Value = "yok"
Sheets("Sayfa2").Cells(r, "d").Value = "yok"
End If
If deg1 > 0 Then
Sheets("Sayfa2").Cells(r, "f").Value = deg1 & " edet bulundu"
End If

Next r
MsgBox sat & "  adet bulundu " & Chr(13) & _
sat1 & "  adet bulunmadı" & Chr(13) & Chr(13) & _
"işlem tamam", vbInformation, "sonuç"
End Sub

 

[Hacı Bayram ÖZKAN]

HALİT ABİ; Örneğin Ali ismini girdim, Ali ismide Sayfa1 Listemde yok diyelim, bunun için 1 kayıt bulunamadı yazmasını istiyorum, bunu yaparmısın teşekkürler. "ergün ve hacı bayram için 2 kayıt bulundu, ali için 1 kayıt bulunadı mesajı"

 

[Hacı Bayram ÖZKAN]

Abi çok hızlısın eline sağlık dua ile kal, sitedeki herkes dua ile kalsın

 

[halit3]

9 nolu mesajdaki koda bazı ilaveler yaptım.

 

[makan]

Ben bundan hiçbir şey anlamadım ki. Listede neyi hangi kritere göre buluyor. .