Sorgu için arama sonuçları: findnext

  1. R

    Soru Tüm sayfalarda sadece belirli sütunlarda arama

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

    Soru Excel de arama kutusu yapmak

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

    Soru Excel de arama kutusu yapmak

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

    Soru Excel de arama kutusu yapmak

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

    Soru Excel de arama kutusu yapmak

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

    Soru Excel de arama kutusu yapmak

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

    listbox tarih sütunu tarih sıralaması

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

    listbox tarih sütunu tarih sıralaması

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

    Soru İki hücre arasında benzerlerin sayısını bulma

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

    listbox tarih sütunu tarih sıralaması

    ...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 For t = 0 To 7 ListBox1.List(t, 4) =...
  11. E

    Soru İki hücre arasında benzerlerin sayısını bulma

    Öncelikle formül için çok çok teşekkür ederim. ve bir desteğinize daha ihtiyacım var: Mesela "T.C. ZİRAAT BANKASI İSTANBUL ŞUBE" ile "TÜRKİYE CUMHURİYETİ ZİRAAT BANKASI" arasında olan benzer kelimeleri bulurken T.C. ile TÜRKİYE CUMHURİYETİNİN aynı anlama geldiğini bilip bunu da...
  12. muygun

    Soru İki hücre arasında benzerlerin sayısını bulma

    ...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 End With 'Renklendirme kodları sonu Next i Next k...
  13. Ömer

    Soru Hücreye Girilen Veriyi Anımsamak

    ...Set c = S2.[C11:C1000].Find("*" & ActiveCell & "*") If Not c Is Nothing Then Adr = c.Address Do ListBox1.AddItem S2.Cells(c.Row, "C") Set c = S2.[C11:C1000].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End Sub
  14. Ömer

    Koşullu Combobox

    ...= S1.Cells(c.Row, "E") Exit Do End If End If Set c = S1.[D:D].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End With End Sub Private Sub...
  15. Ömer

    Soru Hücreye Girilen Veriyi Anımsamak

    ...If Not c Is Nothing Then Adr = c.Address Do ListBox1.AddItem c.Value Set c = S2.[C10:C500].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)...
  16. Ömer

    Soru Hücreye Girilen Veriyi Anımsamak

    ...Adr = c.Address Do ListBox1.AddItem c.Value Set c = S2.[C10:C500].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End If Next i End Sub Private Sub...
  17. Ömer

    İstenilen değerse o Satırı yazdırmak

    ...Do If S1.Cells(c.Row, "E") < 30 Then S1.Cells(c.Row, "D").Resize(1, 6).Copy Cells(sat, "D") sat = sat + 1 End If Set c = S1.[D:D].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If End Sub
  18. Ömer

    Makro ile sıralama

    ...3).Copy Cells(sat, "F") sat = Cells(Rows.Count, "F").End(xlUp).Row + 1 End If Set c = [B:B].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next j MsgBox "Aktarım Bitti." End Sub
  19. Ömer

    Daha önce değer girilmiş excel satırında işlem yapmak

    ...& c.Row & " .Satır %2 den fazla" & _ vbLf & "Başka Kayıt Varsa Aranacak" End If Set c = S1.[A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr If s > 0 Then MsgBox s & " Değişim Yapıldı", vbInformation Else...
  20. Ömer

    Daha önce değer girilmiş excel satırında işlem yapmak

    ...If Not c Is Nothing Then Adr = c.Address Do S1.Cells(c.Row, "D") = TextBox2.Text Set c = S1.[A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr If Not c Is Nothing Then MsgBox "Değişim Yapıldı", vbInformation Else...
Üst