bthn35
Altın Üye
- Katılım
- 12 Kasım 2009
- Mesajlar
- 192
- Excel Vers. ve Dili
- 365 ProPlus TR
- Altın Üyelik Bitiş Tarihi
- 17-11-2026
Merhaba,
Aşağıdaki konuda bulunan makroyu kendime göre uyarladım ve sorunsuz çalışıyor ancak 5-6 tane değiştireceği alan olduğunda tek tek sekme değiştirip kopyaladığı için aşırı uzun sürüyor. Bunu hızlandırmak için farklı bir kod kullanabilir miyiz?
Benim kullandığım makro:
Aşağıdaki konuda bulunan makroyu kendime göre uyarladım ve sorunsuz çalışıyor ancak 5-6 tane değiştireceği alan olduğunda tek tek sekme değiştirip kopyaladığı için aşırı uzun sürüyor. Bunu hızlandırmak için farklı bir kod kullanabilir miyiz?
Benim kullandığım makro:
Kod:
Sub BUL_AKTAR()
Worksheets("GIRIS-CIKIS").Unprotect
Dim s1 As Worksheet, s2 As Worksheet, BUL As Range, ADRES As String
Set s1 = Sheets("GELEN-GIDEN")
Set s2 = Sheets("GIRIS-CIKIS")
Set BUL = s2.Range("M:M").Find(s1.Range("R2"), , , xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
s1.Range("Q2").Copy
s2.Range("L" & BUL.Row).PasteSpecial xlPasteValues, , , True
s2.Range("C" & BUL.Row) = Date
Application.CutCopyMode = False
Set BUL = s2.Range("M:M").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
Set BUL = Nothing
Set s1 = Nothing
Set s2 = Nothing
Worksheets("GIRIS-CIKIS").Protect
End Sub
yerine yaz veya bul-değiştir gibi bir makro
örnek ekte arkadaşlar. a 1 hücresine ne yazarsam formüllerdeki metinle değişsin istiyorum. mümkünmü acaba.!!!
www.excel.web.tr