Bir Hücre Ãçin Uygulanan Makroyu Tüm Hücrelerde Kullanm
Bir txt dosyasından kopyaladığım metinleri a1 hücresine tıklayıp mokroyu çalıştırdığımda aralarındaki boşluğa göre ilk pragraftaki boşluktan önceki cümleyi a1 satırına boşluktan soraki cümleyi a2 satırına yerleştiren ve bir satır boşluk bırakarak ikinci cümleyede aynı işlemi uygulayan bir makro düzenlemeye çalıştım bu makro sadece a12 hücresine kadar uygulandı şimdi ben bunu a12 den a1000 e kadar
aynı şekildemi devam etmeliyim yoksa daha basit bir yolu varmı umarım doğru ifade edebilmişimdir.Excel konusunda çok yeniyim bu site için ve ilgilenen arkadaşlar için çok Teşekkürler.
ActiveSheet.Paste
Range("B1").Select
Selection.Cut
Range("A2").Select
ActiveSheet.Paste
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("B4").Select
Selection.Cut
Range("A5").Select
ActiveSheet.Paste
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("B7").Select
Selection.Cut
Range("A8").Select
ActiveSheet.Paste
Rows("9:9").Select
Selection.Insert Shift:=xlDown
Range("B10").Select
Selection.Cut
Range("A11").Select
ActiveSheet.Paste
Rows("12:12").Select
Selection.Insert Shift:=xlDown
End Sub
Bir txt dosyasından kopyaladığım metinleri a1 hücresine tıklayıp mokroyu çalıştırdığımda aralarındaki boşluğa göre ilk pragraftaki boşluktan önceki cümleyi a1 satırına boşluktan soraki cümleyi a2 satırına yerleştiren ve bir satır boşluk bırakarak ikinci cümleyede aynı işlemi uygulayan bir makro düzenlemeye çalıştım bu makro sadece a12 hücresine kadar uygulandı şimdi ben bunu a12 den a1000 e kadar
aynı şekildemi devam etmeliyim yoksa daha basit bir yolu varmı umarım doğru ifade edebilmişimdir.Excel konusunda çok yeniyim bu site için ve ilgilenen arkadaşlar için çok Teşekkürler.
ActiveSheet.Paste
Range("B1").Select
Selection.Cut
Range("A2").Select
ActiveSheet.Paste
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("B4").Select
Selection.Cut
Range("A5").Select
ActiveSheet.Paste
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("B7").Select
Selection.Cut
Range("A8").Select
ActiveSheet.Paste
Rows("9:9").Select
Selection.Insert Shift:=xlDown
Range("B10").Select
Selection.Cut
Range("A11").Select
ActiveSheet.Paste
Rows("12:12").Select
Selection.Insert Shift:=xlDown
End Sub