Sorgu için arama sonuçları: findnext

...Else t = t & "," & c.Address End If End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> adr End If End With If Not t = "" Then Range(t).ClearContents With...

...Call ADO_Liste(Range("A" & Bul.Row - 2).Value, Bul.Row + 2) Set Bul = Worksheets("Yoklama").Range("A2:A" & SonSat).FindNext(Bul) Loop While Bul.Address <> BulAdres MsgBox "Veri aktarımı tamamlanmıştır." & Chr(10) & Chr(10) & "İşlem süresi ; " & Format(Timer - TimerStart, "0.00")...

...ReDim Preserve dizi(s) dizi(s) = c.Row s = s + 1 Set c = Cells(3, i).Resize(35, 1).FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next i If s = 0 Then Exit Sub For i = 3 To 35 If...

...Case vbNo Case Else Exit Do End Select Set Bul = Range("B1:B" & SonB).FindNext(Bul) If Bul Is Nothing Then Exit Do Loop End If Next i MsgBox "Arama sonucu" & Chr(10) & "Bulunan : " & TotalFind &...

...hatası veriyor. Ancak ikinci hayırda bunu yapmıyor. Bu seferde diğer personellere geçmiyor. Debug deyince Set Bul = Range("B1:B" & SonB).FindNext(xBul) Bu satır sarı yanıyor. Eğer ilk evet deyip bir personel silinince diğer personel için HAYIR deyince yani silme deyince burayı geçmiyor...

...GoTo Devam1 'Bu ürün tamamlandı diğer Ürüne geç End If Set Bul = Range("A1:A" & SonA).FindNext(Bul) Loop While Bul.Address <> ilkadres Case Is < 0 Do x = x + 1...

...GoTo Devam1 'Bu ürün tamamlandı diğer Ürüne geç End If Set Bul = Range("A1:A" & SonA).FindNext(Bul) Loop While Bul.Address <> ilkadres Case Is < 0 Do x = x + 1...

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