Sorgu için arama sonuçları: findnext

...Exit Do End If End If Set c = S2.[D:D].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next i 'End If Next j...

Emeğiniz için teşekkürler fakat yine olmadı ilk kod ile aynı sonucu veriyor. WTG02 için bir işi %100 yaptığımda WTG02 sütunundaki hücreleri doldurmuyor

...Exit Do End If End If Set c = S2.[D:D].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next i End If Next j...

Öncelikkle çok teşekkür ederim kod çok güzel çalışıyor fakat kod ile alakalı ufak bir sorum daha var lütfen kusura bakmayın çok rahatsız ettim sizleri. WTG01 için olan işler için kod tam istediğim gibi çalışıyor fakat ben rapor sayfasında WTG02 ye bir iş girdiğimde ve bunun statüsünü %100...

...= S2.Cells(c.Row, "A") Exit Do End If End If Set c = S2.[D:D].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next i S1.Select Application.ScreenUpdating =...

...False) myarr(3, A) = k.Value myarr(4, A) = k.Offset(0, 2).Value Set k = Sheets(syf).[D:D].FindNext(k) Loop While ilk_adres <> k.Address And Not k Is Nothing End If If ComboBox1.Value <> "HEPSİ" Then Exit For Next i ' MsgBox...

...syf = "İz" Or syf = "İz Arşiv" Then myarr(4, A) = k.Offset(0, 2) End If Set k = Sheets(syf).[D:D].FindNext(k) Loop While ilk_adres <> k.Address And Not k Is Nothing End If If ComboBox1.Value <> "HEPSİ" Then Exit For Next i Set...

...A) myarr(1, A) = syf myarr(2, A) = k.Address(False, False) myarr(3, A) = k.Value Set k = Sheets(syf).[D:D].FindNext(k) Loop While ilk_adres <> k.Address And Not k Is Nothing End If If ComboBox1.Value <> "HEPSİ" Then Exit For Next i Set k...

...Liste(3, Say) = Bul.FormulaLocal End If Set Bul = Sayfa.Range(Alan.Address).FindNext(Bul) Loop While Not Bul Is Nothing And Bul.Address <> Adres End If End If Next Next If Say...

...= sayC + 1 Else sayE = sayE + 1 End If '------------------------------ Set k = Sheets(syf).Cells.FindNext(k) Loop While ilk_adres <> k.Address And Not k Is Nothing End If End If Next i Set k = Nothing...

Hocam Elinize saglik cok guzel calisiyor, Tesekkur ederim. Sayglilarimla,

...Do Say = Say + 1 Bul.Resize(, 18).Value = Range("A7:R7").Value Set Bul = Range("A10:A" & Rows.Count).FindNext(Bul) Loop While Not Bul Is Nothing And Bul.Address <> Adres End If Set Bul = Nothing MsgBox Say & " adet veri...

...Liste(3, Say) = Bul.FormulaLocal End If Set Bul = Sayfa.Range(Alan.Address).FindNext(Bul) Loop While Not Bul Is Nothing And Bul.Address <> Adres End If End If Next Next If Say >...

İkinci kısmı belirtmeyi atlamışım. Set k = Sheets(syf).Cells.FindNext(k) Aynı şekilde; buradaki Cells yerine de [D:D] yazarak deneyiniz.

...a) myarr(1, a) = syf myarr(2, a) = k.Address(False, False) myarr(3, a) = k.Value Set k = Sheets(syf).Cells.FindNext(k) Loop While ilk_adres <> k.Address And Not k Is Nothing End If If ComboBox1.Value <> "HEPSİ" Then Exit For Next i Set k...

...To 3, 1 To a) myarr(1, a) = ComboBox1.Column(0, i) myarr(2, a) = k.Address(False, False) myarr(3, a) = k.Value Set k = Sheets(syf).Cells.FindNext(k) Loop While ilk_adres <> k.Address And Not k Is Nothing End If If ComboBox1.Value <> "HEPSİ" Then Exit For Next i Set k = Nothing Label3.Caption...

Bu kodlar bana ait değil, ilk mesajda syın ogcln'nin paylaştığı kodlar, ben sadece uyarlama yapıyorum. Öncelikle bu kodlar bana ait değil. İlk mesajda sizin paylaştığınız kodlar ve tam olarak da ilk mesajda sizin istediğiniz işlemi yapıyorlar. Ben kodda bir değişikliik yapmadım, sadece kodu...

...için Evet'i seçiniz)", vbQuestion + vbYesNo, "Dikkat!") If onay = vbNo Then Exit Sub Şu kısım kalkacak iletişim kutusu için ama, bir sonraki aşamayı yapamadım. Findnext'ide yazmış yusuf hocam ama. Tekrardan nasıl devam ettiririz iletişim kutusu çıkmadan ugrasıyorum henüz yapamadım

Teşekkür ederim elinize sağlık. Bu sefer çalıştı. 2 şey daha soracağım. İlki Bu kodda arama yapıldığında iletişim kutusu çıkmasını istemiyorsam ne yapmam lazım. Her sonraki aramaya iletişim kutusundaki evet komutu ile değil de CommondButton1 butonuna tekrar basılmasıyla devam etsin. İkincisi...