Boşalan satıra bir altındaki satırı taşımak

[bravo64]

Ã?zür dilerim ama arka arkaya soru gönderiyorum.Fakat öyle destek görüyorumki keşke hayatın tüm boyutlarında herkez böyle karşılıksız birbirine destek olsa..
yeni sorunum şöyle;
sildiğim bir satıra,bir altındaki,örneğin "c10:f10" aralığını yukarıdaki boşalan satıra aktarabilmek.
iyilikler dilerim.

 

[bravo64]

ctrl+g/özel/boşluk dışında kod ile yapmak istiyorum..

 

[mehmett]

Þöyle olabilir mi?

[vb:1:c155197c6e]Sub Makro1()
Selection.Delete Shift:=xlUp
End Sub[/vb:1:c155197c6e]

 

[Levent Menteşoğlu]

Ã?ncelikle güzel sözleriniz için teşekkür ederim.

Ã?zür dilerim ama arka arkaya soru gönderiyorum.

Böyle bir söze hiç gerek yok, bizler zaten bunun için buradayız.

İlk sorunuzu tam olarak anlayamadım. Daha detaylı bir örnek ile açıklarmısınız?

İkinci sorunuz için excelin makro kaydet özelliğini kullanın. Bu özellik ile sayfa üzerinde yaptığınız tüm işlemleri otomatik olarak kaydedebilirsiniz. Detaylı bilgi için EXCEL DERSANESİNİ inceleyin.

1-Araçlar-yeni makro kaydet
2-Hücre aralığını seçin
3-ctrl+g ile git penceresini açın
4-burada özel-boşluklar seçin ve tamam butonuna basın.
5-Araçlar-kaydı durdur ile makro kaydını durdurun.
6-Alt+f11 ile kodun bulunduğu vb editörünü açın. ve kodları inceleyin.

Aşağıdaki gibi bir kod çıkacaktır.

[vb:1:84fa993676] Range("A1:A13").SpecialCells(xlCellTypeBlanks).Select
[/vb:1:84fa993676]

 

[bravo64]

sevgili leventm,
ilk sorumu şöyle açıklayayım;a1:h100 aralığında,örneğin b4:h4 satır aralığını siliyorum.Boşalan satıra bir alttaki yani c4:h4 satırını çıkartmak istiyorum.dolayısıyla aşağıdaki tüm satırlar yukarıya kayacak..ctrl+git yerine tek bir kodla yapabilirmiyim diye sormak istedim..
Ayrıca engin alçak gönüllülüğünüz için bir kere daha kutlarım sizi..
iyilikler..

 

[bravo64]

sayın zerige sizede teşekkür ederim..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Silmek istediğiniz hücreleri seçin ve bu kodu çalıştırın.

[vb:1:84b028eb80]Range(Selection.Cells.Address).Delete
[/vb:1:84b028eb80]

 

[bravo64]

mükemmel ,elinize,yüreğinize sağlık..
tam istediğim gibi..