Sorgu için arama sonuçları: findnext

...Bul.Row, "L" & Bul.Row).Delete Shift:=xlUp ElseIf Cevap = vbCancel Then Exit Do End If Bulunan = "" Set Bul = Range("B1:B" & SonB).FindNext(xBul) If Bul Is Nothing Then Exit Do Loop End If Next i...

...k) = Bul.Offset(0, 1) Sh.Cells(i + 1, k) = Bul.Offset(0, -1) k = k + 1 Set Bul = Sh.Range("B1:B" & sonB).FindNext(Bul) Loop While Bul.Address <> ilkadres Devam1: Next i For i = 2 To 2 * Int(Dizi.Count / 2) Step 2 k = 12...

Teşekkürler Asi kıral örnek dosyamda istediğim sonucu oldum

..."A") = TextBox1: S1.Cells(HCR.Row, "B") = TextBox2 S1.Cells(HCR.Row, "C") = TextBox3: S1.Cells(HCR.Row, "D") = TextBox4 S1.Cells(HCR.Row, "E") = TextBox5 End If Set HCR = .FindNext(HCR) Loop While Not HCR Is Nothing And HCR.Address <> DRS End If End With KTP1.Save: KTP1.Close End Sub

..."B").Value = k.Offset(0, 1).Value wb.Sheets("Sayfa1").Cells(sonsat2, "C").Value = k.Offset(0, 2).Value Set k = ThisWorkbook.Sheets("DATA").Range("A2:A" & sonsat).FindNext(k) sonsat2 = sonsat2 + 1 Loop While Not k Is Nothing And k.Address <> adr

Sy. Orion1 ; Sy. Orion1 ; benim dosyama uygulamaya çalışıyorum A sütunu ile N sütunu arasında ki verileri aktarmak istiyorum ama bir türlü olmuyor yardımcı olur musunuz. teşekkür ederim.

Orion1 üstadım mükemmel olmuş. Elinize aklınıza sağlık. çok teşekkür ederim, sağlıcakla kalın

...wb.Sheets("Sayfa1").Cells(sonsat2, "B").Value = k.Offset(0, 1).Value Set k = ThisWorkbook.Sheets("DATA").Range("A2:A" & sonsat).FindNext(k) sonsat2 = sonsat2 + 1 Loop While Not k Is Nothing And k.Address <> adr End If sonsat2 = 0 wb.Close True Next...

Tam olarak düşündüğüm şeyi yapmışşınız emeğinize sağlık teşekkürler.

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

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