Sorgu için arama sonuçları: findnext

Hocam ben personel sayfasından büro sayfasına veri çekiyorum. Yazdığınız kod çalışmadı malesef

...lookin:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Ilk_Adres = c.Address Do Msgbox "Bulunan Değer ve Satır No : " & c.value & " " & c.Row Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> Ilk_Adres End If End With

Korhan hocam emeğinize sağlık, teşekkürler, fakat galiba aralarında boşluk olan kelimeleri de buluyor. Sadece boşluk veya boşluklar olan hücreleri bulması lazım. Sebebi de şu; Çalışma sayfasındki verileri kullanıp rapor döken kodlar var, yanlışlıkla basılan boşluk karakterini de veri olarak...

...<> "Barkod No:000000" Then Satir = Satir + 1 Cells(Satir, 1) = Bul.Value Set Bul = Alan.FindNext(Bul) End If Loop While Not Bul Is Nothing And Bul.Address <> Adres End If MsgBox "İşleminiz tamamlanmıştır."...

...Then Adres = Bul.Address Do Satir = Satir + 1 Cells(Satir, 1) = Bul.Value Set Bul = Alan.FindNext(Bul) Loop While Not Bul Is Nothing And Bul.Address <> Adres End If MsgBox "İşleminiz tamamlanmıştır.", vbInformation End Sub

tam olarak olması gerektiği gibi olmuş. Elinize sağlık Necdet Bey. Çok teşekkür ederim.

..."A") Cells(Sat, "B") = Worksheets("Sayfa2").Cells(Bul.Row, "N") Set Bul = .findnext(Bul) Loop While Not Bul Is Nothing And Bul.Address <> Adr Else MsgBox "Bu sicile ait kayıt bulunmamaktadır." End If End With...

...c.Address Do Range("E" & c.Row) = c.Value Range("F" & c.Row) = itm(i) Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> adr End If End With Next i...

....Bold = Cells(i, "M").Font.Bold ' .Size = Cells(i, "M").Font.Size End With End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> adr End If End With Next i End Sub /CODE]

...UCase(Replace(Replace(d(j), "ı", "I"), "i", "İ")) = ara Then MsgBox "aranan değeri buldum" Exit Do End If Next j Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If...

hocam cahilliğimi hoş görün bunu nereye yapıştıracağım.

...ilkadres = ara.Address Do Cells(ara.Row, 2).Interior.Color = vbYellow Set ara = .FindNext(ara) Loop While Not ara Is Nothing And ara.Address <> ilkadres End If Next i End With MsgBox "İşlem tamam", vbInformation...

..."D") sure.Cells(son_sure, "E") = genel.Cells(c.Row, "E") End If Set c = genel.[A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If Next i MsgBox "İşleminiz Bitti.", vbInformation...

...8).Value myarr(10, a) = k.Offset(0, 9).Value myarr(11, a) = k.Offset(0, 10).Value Set k = Range("C:C").FindNext(k) Loop While Not k Is Nothing And k.Address <> adr listAnasayfa.Column = myarr End If Erase myarr Set k = Nothing...

teşekkürler

Hocam şu şekilde yapılabilir. Sub FindNext_Kullanma() Dim Aranan, ilkAdres As String Dim KoNTroLYeRi, Bulunan As Range Aranan = "Ahmet" Set KoNTroLYeRi = Range("A1:A10") Set Bulunan = KoNTroLYeRi.Find(Aranan) If Bulunan Is Nothing Then Debug.Print "Not found" Exit...

...Nothing Then Search_Adress = Search_Data.Address Do MsgBox Search_Data.Value Set Search_Data = Cells.FindNext(Search_Data) Loop While Not Search_Data Is Nothing And Search_Data.Address <> Search_Adress End If Set Search_Data = Nothing...

...Aşağıdaki kodları çalışmanıza uyarlayabilirsiniz. Sub araBul() Dim i As Integer i = 1 Set bul = Cells.Find("aranacak kelime", ActiveCell) If Not bul Is Nothing Then ilk = bul.Address Do bul.Interior.ColorIndex = 24 i = i + 1 Set bul = Cells.FindNext(bul) Loop While bul.Address <> ilk End If...

..."A").ClearComments S1.Cells(c.Row, "B").ClearComments s = 1 End If Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If If s = 1 Then MsgBox "Açıklama Silindi", vbInformation...

...5) Else Set k = Union(k, Cells(c.Row, "A").Resize(1, 5)) End If Set c = [B:B].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If If Not k Is Nothing Then k.Delete Shift:=xlUp Set c =...