Üstadlar;
asi_kral_1967 arkadaşın yazdığı formül çok işimi görüyor fakat bu macro dosya uzadığından çok uzun sürmeye başladı yaklaşık yarım saat sürüyor.
Bu süreyi kısaltma yada daha kolay alternatifleri var mıdır?
Macro aşağıdadır.
Excel Dosya büyüklüğü 3.896 kb
Option Explicit
Sub bul_gelir_1967()
'Konu : Tarih Karşııığını Bul
'Mail : m.batu.1967@gmail.com
'Coder By : asi_kral_1967
Dim asi, kral
For asi = 14 To Cells(Rows.Count, "A").End(xlUp).Row
For kral = 1 To Cells(8, Columns.Count).End(xlToLeft).Column
If Cells(asi, "A") = Cells(8, kral) Then
Cells(asi, "B") = Cells(8, kral + 6)
End If
Next
Next
MsgBox "Karşılıklar Bulundu", vbInformation, "asi_kral_1967"
End Sub
asi_kral_1967 arkadaşın yazdığı formül çok işimi görüyor fakat bu macro dosya uzadığından çok uzun sürmeye başladı yaklaşık yarım saat sürüyor.
Bu süreyi kısaltma yada daha kolay alternatifleri var mıdır?
Macro aşağıdadır.
Excel Dosya büyüklüğü 3.896 kb
Option Explicit
Sub bul_gelir_1967()
'Konu : Tarih Karşııığını Bul
'Mail : m.batu.1967@gmail.com
'Coder By : asi_kral_1967
Dim asi, kral
For asi = 14 To Cells(Rows.Count, "A").End(xlUp).Row
For kral = 1 To Cells(8, Columns.Count).End(xlToLeft).Column
If Cells(asi, "A") = Cells(8, kral) Then
Cells(asi, "B") = Cells(8, kral + 6)
End If
Next
Next
MsgBox "Karşılıklar Bulundu", vbInformation, "asi_kral_1967"
End Sub
