sayfa1 de bulduğu hücreyi belirli bir dizini diğer sayfaya aynı konum olarak almak için makro ihtiyacım var

[idealimsin]

Deneyiniz.

Yine içerir mantığı ile arama yapar.

Sayfa1'de koşullu biçimlendirme var. Onları silerseniz yapılan sarı renklendirmeyi görebilirsiniz.

Eğer arama işlemi içerir olmasın derseniz kod içindeki aşağıdaki kırmızı bölümü xlWhole olarak değiştiriniz.

Set Bul = S1.Cells.Find(Aranan, , , xlPart)

Option Explicit

Sub Bul_Listele()
    Dim S1 As Worksheet, S2 As Worksheet, Bul As Range, Say As Long
    Dim Adres As String, Aranan As Variant, Satir As Long
   
    Aranan = Application.InputBox("Aradığınız veriyi giriniz.", "Aranan Veri")
    If Aranan = "" Or Aranan = False Then Exit Sub
   
    Set S1 = Sheets("Sayfa1")
   
    Satir = 1
   
    Set Bul = S1.Cells.Find(Aranan, , , xlPart)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
       
        On Error Resume Next
        Set S2 = Nothing
        Set S2 = Sheets(Aranan)
        On Error GoTo 0
       
        If S2 Is Nothing Then
            Set S2 = Sheets.Add(, Sheets(Sheets.Count))
            S2.Name = Aranan
        Else
            S2.Cells.Clear
        End If
       
        Do
            Bul.Interior.ColorIndex = 6
            Bul.Resize(30, 16).Copy S2.Cells(Satir, Bul.Column)
            Say = Say + 1
            Satir = Satir + 35
           
            Set Bul = S1.Cells.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
                   
    If Say > 0 Then
        MsgBox "Bulunan veriler aktarılmıştır.", vbInformation
    Else
        MsgBox "Aranan veri bulunamadı!" & Chr(10) & Chr(10) & _
               "Aranan veri ; " & Aranan, vbCritical
    End If
End Sub

Tekrar merhaba kusura bakmayın şöyle bir sorum vardı sayfalarda toplam veriler 200 bin satır kadar hatta geçen biriken verilerim var . tek bir sayfaya ekleyipte makro bu aktarmaları yapabilirmi.yoksa çalışma sayfasında sayfaları sayfa1.sayfa2,sayfa3,,,,,,,,diye sayfaları tarattırmamızmı daha iyi olur

 

[Korhan Ayhan]

Nasıl bir kurgu ile kullanım yaptığınızı bilmediğim için sizden gelen talebe göre kodları hazırladım.

Sonuçta bir excel sayfasında 1.048.576 satır var. Bu kadar satırı kısa sürede doldurmanız mümkün değilse tek sayada verilerinizi depolayın. Yok geçer diyorsanız çoklu sayfa kullanımına geçin.

 

[idealimsin]

Nasıl bir kurgu ile kullanım yaptığınızı bilmediğim için sizden gelen talebe göre kodları hazırladım.

Sonuçta bir excel sayfasında 1.048.576 satır var. Bu kadar satırı kısa sürede doldurmanız mümkün değilse tek sayada verilerinizi depolayın. Yok geçer diyorsanız çoklu sayfa kullanımına geçin.

Tek sayfada verileri topladım.gayet iyi çalıştı. gözden kaçırdığım bir konu vardı. arattığımız hücrenin 2 satır üstünden kopyalamasını yapması için kodta nereyi refize etmem gerekiyor .yani "A47" hücresinde buldu ise "a45: ten itibaren kopyalaması için?

 

[Korhan Ayhan]

Bu konudaki bütün kodları istediğiniz gibi çalışacak şekilde revize ettim. Deneyebilirsiniz.

 

[idealimsin]

çok sağolasın hayırlı akşamlar

 

[idealimsin]

Bu konudaki bütün kodları istediğiniz gibi çalışacak şekilde revize ettim. Deneyebilirsiniz.

mantığı anlamak için satırda geri gitmeyi gördüm .sütundada geri gitmeyinasıl yaparım

 

[idealimsin]

mantığı anlamak için satırda geri gitmeyi gördüm .sütundada geri gitmeyinasıl yaparım

BULDUM HOCAM ÇOK TEŞEKKÜRLER

 

[idealimsin]

Bu konudaki bütün kodları istediğiniz gibi çalışacak şekilde revize ettim. Deneyebilirsiniz.

hocam 250 bin ve üstü satırlarda bulunan hücreleri görmüyor.bir sınırlama varmı...? .toplam veri satırı 400bin

 

[Korhan Ayhan]

Hiçbir kısıtlama yok.