Üzerinde durduğum satırı silme (soru)

[Sacri]

arkadaşlar öncelikle iyi akşamlar..

Kısa bi rahatsızlık vericem size..

sorunum şu..

ctrl+ğ gibi bi kısayol ile üzerinde bulunduğum satırı silmek istiyorum..

böyle bi makro kodu var mıdır.. yada başka bir yolu..
hiç birşey sormayacak bastığım gibi sorgusuz sualsiz silmek ve eklemek..

office 2003 için crtl+ ctrl- tuşları var ama bunlar satırı seçmediğim sürece karşıma bi dialog penceresi açıyor.. ben o pencereyi istemiyorum.. mümkün müdür..

şimdiden teşekkür ederim..

 

[mesuttasar]

Sanırım ç ve ğ gibi türkçe karakterlerde sorun oluyor. Ama kısa yol olarak a ekleyince (ctrl+a) sorun çıkmadı.

Satır silmek için aşağıdaki kodu boş bir modüle kopyalayın.

Sub Makro5()

' Klavye Kısayolu: Ctrl+a
'
    i = ActiveCell.Row
Rows(i).Select
    Selection.Delete Shift:=xlUp
    Range("A" & i).Select
End Sub

Satır eklemek içinde

Sub Makro6()

' Klavye Kısayolu: Ctrl+s
'
    i = ActiveCell.Row
Rows(i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A" & i).Select
End Sub

 

[Sacri]

Hocam çok teşekkür ettim.. prosedürler hızımı kesiyordu

 

[mekist]

Sanırım ç ve ğ gibi türkçe karakterlerde sorun oluyor. Ama kısa yol olarak a ekleyince (ctrl+a) sorun çıkmadı.

Satır silmek için aşağıdaki kodu boş bir modüle kopyalayın.

Sub Makro5()

' Klavye Kısayolu: Ctrl+a
'
    i = ActiveCell.Row
Rows(i).Select
    Selection.Delete Shift:=xlUp
    Range("A" & i).Select
End Sub

Satır eklemek içinde

Sub Makro6()

' Klavye Kısayolu: Ctrl+s
'
    i = ActiveCell.Row
Rows(i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A" & i).Select
End Sub

Üstad,

ELine sağlık güzel fakat,
Burda sadece tek satır silebiliyoruz.
50 satır seçip hepsini silebilir miyizi. (seçilecek satır sayısı değişken olacak)

 

[mesuttasar]

Üstad,

ELine sağlık güzel fakat,
Burda sadece tek satır silebiliyoruz.
50 satır seçip hepsini silebilir miyizi. (seçilecek satır sayısı değişken olacak)

Sayın mekist;

Aşağıdaki kod , aktif hücrenin bulunduğu satırdan aşağıya doğru gireceğiniz satır adedi kadar olan satırları silmenize yarar.

Sub Makro5()


    i = ActiveCell.Row
10
    d = InputBox("Aktif Satırın Haricinde , Aşağıya Doğru Kaç Satır Daha Silmek İstiyorsunuz ?", "excel.web.tr")
    If d <> "" Then GoTo 20
    MsgBox "Silinecek Satır Adedi Girmediniz !!!", vbCritical, "excel.web.tr"
    GoTo 10
20
a = i + d
Rows(i & ":" & a).Select
Selection.Delete Shift:=xlUp
MsgBox i & " Numaralı Satırdan " & a & " Numaralı Satıra Kadar Olan Aralık Silindi.", vbOKOnly, "excel.web.tr"
 Range("A" & i).Select
End Sub