ACİL Lütfen Excell de Macroyu bir kaç sonraki hücrede uygulayamıyorum!!!!!

CaNeR509 · 2015-06-24T13:46:50.0000000+03:00

Merhabalar, Excellde ihtiyacı gidermek için bir makro yaptım; Columns("O:O").Select Selection.Find(What:="ACM", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Rows("3:3").Select Range("O3").Activate Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Range("O3:U5").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("T3").Select ActiveCell.FormulaR1C1 = "KB" Range("T4").Select ActiveCell.FormulaR1C1 = "AÜ" Range("T5").Select ActiveCell.FormulaR1C1 = "YÜ" Columns("O:O").Select Range("O6").Activate Yalnız şöyle bir sıkıntı oluyor normalde Sütunda ACM yi bulup altına açmasını istiyorum 1. de çalışıyor lakin 4-5 hücre alttaki ACM yi bulup aynı işlemi tekrarlamıyor. Bunu nasıl giderebilirim. Şimdiden teşekkür ederim.

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

https://www.amazon.com.tr/dp/B074PSYL33?ref=ppx_yo2ov_dt_b_fed_asin_title https://www.amazon.com.tr/dp/B074PSYL33?ref=ppx_yo2ov_dt_b_fed_asin_title 6 sa. önce paylaşıldı

https://www.amazon.com.tr/gp/product/B08K7B78Q4 https://www.amazon.com.tr/gp/product/B08K7B78Q4 3 sa. önce paylaşıldı

Scooter Su Geçirmez Deri Erkek Bot M7108ds 44 Fiyatları ve Özellikleri https://www.n11.com/urun/scooter-su-gecirmez-deri-erkek-bot-m7108ds-39845906?magaza=scooter dün paylaşıldı