Sorgu için arama sonuçları: findnext

  1. RBozkurt

    Bul > Altına Ekle ve Kalanları Birleştir

    Teşekkürler. Ben sütunları ayarlayım. Diğer 1. sayfadan çekilecek veriyide ekleyebilirmiyiz akabinde? Hem çekecek hem birleştirme uygulayacak.
  2. Ömer

    Bul > Altına Ekle ve Kalanları Birleştir

    ..."C") S1.Cells(i, "J") = S2.Cells(c.Row, "F") S1.Cells(i, "K") = S2.Cells(c.Row, "G") Set c = S2.[G:G].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End If Next i...
  3. M

    İKİ SÜTUNU KARŞILAŞTIR BUL YARDIM

    Teşekkür ederim istediğim gibi oldu.sağolun.
  4. N

    İKİ SÜTUNU KARŞILAŞTIR BUL YARDIM

    ...c.Address Do Cells(c.Row, "E") = Cells(c.Row, "E") & " - " & Cells(i, "D") Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> adr End If End With adr = "" Set c =...
  5. M

    İKİ SÜTUNU KARŞILAŞTIR BUL YARDIM

    Merhaba Necdet Bey ilgilendiğiniz için teşekkür ederim.sizin yazdığınızı modüle ekleyip denedim.arama işlemi 2 dakika kadar sürüyor.yani ekran donuyor.sonra sonuçlar çıkıyor.veri çokluğundan değil azaltınca da aynı.bu normalmi bilemedim. arama sonucu istediğim gibi sadece E sütüna yazılan yazı...
  6. N

    İKİ SÜTUNU KARŞILAŞTIR BUL YARDIM

    ...adr = c.Address Do Cells(i, "E") = Cells(i, "D") & " " & Cells(i, "D") Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> adr End If End With Set c = Nothing adr = ""...
  7. Ömer

    diğer sayfalardan koşullu veri aktarımı ve silinmesi

    ...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 End If Next syf MsgBox "Aktarım bitti."...
  8. 1

    Listbox ile Sayfalarda Ara Makrosunda Hata alıyorum.

    Hocam İlginiz için teşekkürler Tarih Formatı düzelmiş. Ancak bulunan veriye tıkladığımda aşağıdaki Kod'da gene hata veriyor. Private Sub ListBox1_Click() Sheets(ListBox1.Column(0)).Select Range(ListBox1.Column(1)).Select Range(ListBox1.Column(2)).Select...
  9. Orion1

    Listbox ile Sayfalarda Ara Makrosunda Hata alıyorum.

    ...-1).Value, "dd.mm.yyyy") ListBox1.Column(3, ListBox1.ListCount - 1) = Aranan.Value Set Aranan = Sheets(i).Cells.FindNext(Aranan) Loop While Not Aranan Is Nothing And Aranan.Address <> adres End If Label1.Caption = "Aranan " & Bulunacak Next i If adres...
  10. Ömer

    Diğer Sekmedeki İsimleri Çağırma

    ...Adr = c.Address Do Cells(sat, "Q") = S1.Cells(c.Row, "A") sat = sat + 1 Set c = S1.Range("A2:A" & son).FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Application.ScreenUpdating = True End Sub
  11. B

    Diğer Sekmedeki İsimleri Çağırma

    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...
  12. Ömer

    Diğer Sekmedeki İsimleri Çağırma

    ...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...
  13. Ömer

    diğer sayfalardan koşullu veri aktarımı ve silinmesi

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

    Mükerrer varsa enson yazılan kalsın diğerleri silinsin

    ...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...
  15. ÖmerFaruk

    Soru Sınıf Listesi Güncelleme

    ...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")...
  16. Ömer

    Field Koşulunu Değişken Yapmak

    ...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...
  17. ÖmerFaruk

    İki sütunu karşılaştırarak istenileni silme

    ...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 &...
  18. H

    İki sütunu karşılaştırarak istenileni silme

    ...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...
  19. ÖmerFaruk

    Soru Koşula Göre Değer Getirtmek

    ...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...
  20. ÖmerFaruk

    Soru Koşula Göre Değer Getirtmek

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