Sorgu için arama sonuçları: findnext

Merhaba Tekrar, Birşey daha sormak istiyorum eğer mümkünse. Bu işlemi birden fazla sekmeye yapmaya başladım ancak hepsinin yan sütununda yer olmayabiliyor. Textbox gibi bir yerde ismi aratıp altında çıkan isimlere çift tıklayınca en son hücredeki yere yapıştırabilir şeklinde olabiliyor mu...

...Is Nothing Then Adr = c.Address Do Cells(sat, "Q") = S1.Cells(c.Row, "A") sat = sat + 1 Set c = S1.[A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Application.ScreenUpdating = True...

...Do syf.Cells(c.Row, "A").Resize(1, 7).Copy Cells(sat, "A") sat = sat + 1 Set c = syf.[A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next i Application.ScreenUpdating = True End Sub

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