Sorgu için arama sonuçları: findnext

Burda ufak bi hata alıyorum fakat ben Evet ben diğer sütunları da değiştirmeye çalıştım hata aldım fakat sadece D'leri dediğiniz gibi düzeltince hiç sorun kalmadı elinize emeğinize sağlık kod tüm sayfalarda çalışıyor başta bahsettiğiniz hata verme olayını çözmeye çalışacağım sadece. Tekrardan...

Verilerin arandığı aralıktan mı bahsediyorsunuz. Kodlarda; Set c = syf.[D: D].Find(S1.Cells(i, "A"), , xlValues, xlWhole) . . . Set c = syf.[D: D].FindNext(c) Yukarıda iki satırdaki [D: D] yerine [D29: D49] yazmanız yeterli olacaktır. .

Merhabalar teşekkür ederim öncelikle hayırlı bayramlar sizede. Kodlar çalışıyor çok teşekkürler If syf.Cells(c.Row, "H") = 1 Then burada aralık belirtmek istersem nasıl düzenleyebilirim yani ben direkt H29 ile H49 arası demek istiyorum. Raporumun orijinalinde size attığım tüm sütunlar 29 ile 49...

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

Kod çalışıyor çok teşekkür ederim emeğinize

...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...