Makro ile satır silerken satır numaralarının değişken yapılması

[ByVely]

Herkese selam..
Bir süre aradım ama derdime çare açılmış bir konu bulamadım.
Makro kullanarak bir program yapıyorum.Programda duruma göre değişen satır silme işlemine ihtiyacım var.
Örneğin bazen 10-15 satırları, bazen 25-40 satırları v.b silinecek.
Rows("10:15").delete
ifadesi ile amacıma ulaşıyorum ama rakamların yerine değişken koyduğumda program hata veriyor:

Aşağıdaki kodu kullanıyorum:
Sub Sat_Sil(ByVal ilk As Long, ByVal son As Long)

Rows("ilk:son").Delete

End Sub

HATA!

Değişkenlerin arasına virgül koyarak denedim yine olmadı:

Sub Sat_Sil(ByVal ilk As Long, ByVal son As Long)

Rows("ilk","son").Delete

End Sub

HATA !


"ilk" ve "son" değerlerine göre birden fazla satırı bir çırpıda silmek.

İlginize teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki şekilde deneyin.

Rows(ilk & ":" & son).Delete

 

[ByVely]

Çok teşekkür ederim. Harika oldu.

Peki excel içerisinde açılır liste olarak çalışan bir hücre yanında beliren oka tıklamaya gerek kalmadan hücre seçilir seçilmez açılma işlemi yapılabilir mi??
Excel içerisinden bir ayarla veya "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" olayı kullanılarak.

 

[Orion1]

Çok teşekkür ederim. Harika oldu.

Peki excel içerisinde açılır liste olarak çalışan bir hücre yanında beliren oka tıklamaya gerek kalmadan hücre seçilir seçilmez açılma işlemi yapılabilir mi??
Excel içerisinden bir ayarla veya "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" olayı kullanılarak.

Bir örnek dosya linkleseniz iyi olur.

 

[ByVely]

Bu hücre veri doğrulama>liste yöntemi kullanılarak hazırlanmış bir açılır liste. Hücreyi seçip OK işaretine tıklamadan açılmıyor. Hücre seçilince otomatik açılabilir mi?

 

[Muzaffer Ali]

Çok teşekkür ederim. Harika oldu.

Peki excel içerisinde açılır liste olarak çalışan bir hücre yanında beliren oka tıklamaya gerek kalmadan hücre seçilir seçilmez açılma işlemi yapılabilir mi??
Excel içerisinden bir ayarla veya "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" olayı kullanılarak.

Veri Doğrulamanın olduğu sayfanın kod kısmına aşağıdaki kodları kopyalayın.
Listenin A1 hücresinde olduğu varsayılmıştır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.SendKeys ("%{down}")
End Sub

 

[ByVely]

Uyguladım oldu.
Harikasınız...
Çok Çok teşekkür ederim..