DÜŞEYARA formülü yerine makro

[serkans]

Merhaba

Ekteki dosyada Adisyon Hareketleri Raporu sekmesindeki AN:AQ sütunlarına, Veri Yeni sekmesinden düşey ara ile veri getirtiyorum.

Her gün satışları ekliyorum ve böylece dosya büyüdükçe maalesef formül yavaşlıyor. Bunu makro ile yapmama yardımcı olabilir misiniz rica etsem.

 

[mozdem]

Merhaba

Ekteki dosyada Adisyon Hareketleri Raporu sekmesindeki AN:AQ sütunlarına, Veri Yeni sekmesinden düşey ara ile veri getirtiyorum.

Her gün satışları ekliyorum ve böylece dosya büyüdükçe maalesef formül yavaşlıyor. Bunu makro ile yapmama yardımcı olabilir misiniz rica etsem.

Makroyu etkinleştirmen gerekir.

 

[Necdet]

Merhaba,
Alternatif olsun.

Sub BulGetir()

Dim c As Range
Dim i As Long

Application.ScreenUpdating = False

For i = 2 To Sayfa1.Cells(Rows.Count, "M").End(3).Row
    
    Set c = Sayfa2.Range("A:A").Find(Sayfa1.Cells(i, "M"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Sayfa1.Cells(i, "AN") = c.Offset(0, 1)
        Sayfa1.Cells(i, "AO") = c.Offset(0, 2)
        Sayfa1.Cells(i, "AP") = c.Offset(0, 3)
        Sayfa1.Cells(i, "AQ") = c.Offset(0, 4)
    End If
    
Next i

Application.ScreenUpdating = True

End Sub

 

[serkans]

Makroyu etkinleştirmen gerekir.

Çok teşekkür ederim

 

[serkans]

Makroyu etkinleştirmen gerekir.

hocam altına satır ekleyince çalışmadı maalesef, neden olabilir? yaklaşık 50.000 satır olacak

 

[serkans]

Merhaba,
Alternatif olsun.

Sub BulGetir()

Dim c As Range
Dim i As Long

Application.ScreenUpdating = False

For i = 2 To Sayfa1.Cells(Rows.Count, "M").End(3).Row
   
    Set c = Sayfa2.Range("A:A").Find(Sayfa1.Cells(i, "M"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Sayfa1.Cells(i, "AN") = c.Offset(0, 1)
        Sayfa1.Cells(i, "AO") = c.Offset(0, 2)
        Sayfa1.Cells(i, "AP") = c.Offset(0, 3)
        Sayfa1.Cells(i, "AQ") = c.Offset(0, 4)
    End If
   
Next i

Application.ScreenUpdating = True

End Sub

Hocam çok teşekkür ederim. Dosyaya başka sekmeler de eklenince, mevcut sekmeler 4 ve 5. sıraya geldiler. Sizin verdiğiniz Sayfa1 ve Sayfa 2 yi de buna göre güncelledim. Ama maalesef dondu ekran ama bitince de makto çalışmadı. neden olabilir?

 

[Necdet]

Dosyayı görmeden ne diyebilirim ki?