Makro ile excele satır sütün eklemek

[aykokbay]

Yazacağımız bir makro ile excel dosyamıza satır sütün ekleyebilir miyiz? Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile istediğiniz işlemi yaparak kodları oluşturabilirsiniz.

. . .

 

[aykokbay]

Bir örnek ile yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Satır eklemek için;

Sub Satır_Ekle()
    Selection.EntireRow.Insert
End Sub

Sütun eklemek için;

Sub Sütun_Ekle()
    Selection.EntireColumn.Insert
End Sub

 

[aykokbay]

Korhan bey yardımlarınız için çok teşekkür ederim. Örnek içerisinde yazmanız mümkün mü? Nereye yazacağımı bulamadım. Şimdi den çok teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Faydalı olacaktır.

http://www.excel.web.tr/f182/002-makro-kaydet-zelligi-video-anlatym-t85556.html

http://www.excel.web.tr/f182/007-visual-basic-editoru-video-anlatym-t85562.html

. . .

 

[aykokbay]

Yardım

İyi akşamlar. Bir konuda yardıma ihtiyacım var. Yazdığımız bir makroda başlangıç ve bitiş satırları girilecek o aradaki satırlar silinecek. Bunu yapmaya çalışıyorum ama olmadı.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub SATIR_SİL()
    İlk_Satır = Application.InputBox("İlk satır numarasını giriniz...")
    Son_Satır = Application.InputBox("Son satır numarasını giriniz...")
    If IsNumeric(İlk_Satır) And IsNumeric(Son_Satır) Then
        If Val(Son_Satır) >= Val(İlk_Satır) Then
            Range("A" & İlk_Satır & ":A" & Son_Satır).EntireRow.Delete
        End If
    End If
End Sub

 

[aykokbay]

Korhan bey iyi akşamlar. Yardımlarınız için teşekkürler. Ama kodu yazdım. İlk numara ve ikinci numara girmek için ekran geliyor yazıyorum silmiyor. Örnek gönderebilir misiniz?

 

[Korhan Ayhan]

Kutucuklara ne yazıyorsunuz?

 

[aykokbay]

Makroya yazdım. Yanlış mı olmuş.

 

[Korhan Ayhan]

Doğru uygulamışsınız...

Peki silme işlemini yapmadığına nasıl kanaat getirdiniz.

 

[aykokbay]

Şimdi uyguladım oldu. Korhan bey çok teşekkür ediyorum. Emeğinize sağlık.