Veri Doğrulamaya sırayla veri gelmesi

[igultekin2000]

İyi günler;
Cari hareket sayfasında A1 hücresine bir kaç harf yazarak B1 hücresine " listele çalışma sayfasının B sütundaki isimlerden bularak VERI sayfasındaki o firmayla ilgili cari hareketleri getiriyorum. cari hareket sayfasında işlem yapıldıktan sonra oradaki " Müşteri ve Satıcı " butonlarına makro ekleyerek , listele çalışma sayfasnın B sütunundaki isimlerin sırayla gelmesini sağlamak istiyorum. Yani Listele çalışma sayfasındaki %18 Mal Alışları, Mal ve Hizmet Alışları %18 KDV, Ahdem Bijuteri, Ak Marmara şekliden isimlerin sırayla veri doğrulama B1 hücresine gelerek o isimle ilgi cari hareketin gelmesi şeklinde, Teşekkürler

 

[igultekin2000]

Biraz karışık yazmışım, özet olarak " listele" sayfasındaki isimleri " cari hareket " çalışma sayfasının B1 hücresine makro ile sırayla getirmek istiyorum

 

[igultekin2000]

Sorun Çözüldü

Sub Tum()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim s1 As Worksheet
Dim s2 As Worksheet
Dim Firma As String
Dim i, say As Long

Set s1 = ThisWorkbook.Worksheets("CARI_HRK")
Set s2 = ThisWorkbook.Worksheets("listele")

say = s2.Cells(s2.Rows.Count, "b").End(3).Row

For i = 2 To say
 Firma = s2.Cells(i, "F").Value
If Firma <> "" Then
  
    s1.Cells(1, "b").Value = Firma
    Call aktarr
    Call SATIR_SIL
    Call detay_musteri
    Call tek_sayi_cevir
    Call ODENMEYENLER
    Call liste_biriktir

    'Call KOD_PDFLS
End If
Next i
MsgBox "PDF dosyaları Oluşturuldu"

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub