Sorgu için arama sonuçları: findnext

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

...To 3, 1 To a) myarr(1, a) = ComboBox1.Column(0, i) 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 = Nothing Label3.Caption...

Bu kodlar bana ait değil, ilk mesajda syın ogcln'nin paylaştığı kodlar, ben sadece uyarlama yapıyorum. Öncelikle bu kodlar bana ait değil. İlk mesajda sizin paylaştığınız kodlar ve tam olarak da ilk mesajda sizin istediğiniz işlemi yapıyorlar. Ben kodda bir değişikliik yapmadım, sadece kodu...

...için Evet'i seçiniz)", vbQuestion + vbYesNo, "Dikkat!") If onay = vbNo Then Exit Sub Şu kısım kalkacak iletişim kutusu için ama, bir sonraki aşamayı yapamadım. Findnext'ide yazmış yusuf hocam ama. Tekrardan nasıl devam ettiririz iletişim kutusu çıkmadan ugrasıyorum henüz yapamadım

Teşekkür ederim elinize sağlık. Bu sefer çalıştı. 2 şey daha soracağım. İlki Bu kodda arama yapıldığında iletişim kutusu çıkmasını istemiyorsam ne yapmam lazım. Her sonraki aramaya iletişim kutusundaki evet komutu ile değil de CommondButton1 butonuna tekrar basılmasıyla devam etsin. İkincisi...

...onay = MsgBox("Tamam/Devam (Aramaya devam etmek için Evet'i seçiniz)", vbQuestion + vbYesNo, "Dikkat!") If onay = vbNo Then Exit Sub Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End With Set c = Nothing End Sub

...c.Offset(0, 0).Select onay = MsgBox("Tamam/Devam", vbCritical + vbYesNo, "Dikkat!") If onay = vbYes Then Exit Sub Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End With Set c = Nothing End Sub

Yusuf Bey, Çok teşekkürler, istediğim gibi olmuş görünüyor.

...For j = 1 To 12 myarr(j, a) = .Cells(k.Row, j).Value Next j Set k = Range("C2:C65536").FindNext(k) Loop While Not k Is Nothing And k.Address <> adrs ListBox1.Column = myarr End If End With ' tarihe göre sıralama yaptırmakta...

...bul = c.Address Do c.Characters(Start:=InStr(UCase(c.Value), UCase(kelimee)), Length:=Len(kelimee)).Font.ColorIndex = 3 Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While Not c Is Nothing And c.Address <> bul End If Next i End With End Sub Sub...