• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satır ekle Makro ile

Merhaba.
İlgili sayfanın kod bölümüne ekleyip
(alt tarfatan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde karşınıza gelecek VBA ekranının sağ tarafına yapıştırınız)
sayfaya ekleyeceğiniz bir düğme/şekil ile ilişkilendiriniz.
NOT: Eklenen satırlardaki kırmızı ve siyah zeminli hücreler bir üstteki üçlü satır grubuyla aynı değerleri içerir, sarı zeminli olanlar boşaltılır.
Kod: 
Sub SATIR_EKLE_BRN()
[COLOR="Red"]satır[/COLOR] = [B65536].End(3).Row
    Rows([COLOR="Red"]satır[/COLOR] - 2 & ":" & [COLOR="Red"]satır[/COLOR]).Copy
    Range("A" & [COLOR="Red"]satır[/COLOR] + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("D" & [COLOR="Red"]satır[/COLOR] + 1 & ":CE" & [COLOR="Red"]satır[/COLOR] + 3) = ""
    Range("CG" & [COLOR="Red"]satır[/COLOR] + 1 & ":CT" & [COLOR="Red"]satır[/COLOR] + 3) = ""
    Range("CV" & [COLOR="Red"]satır[/COLOR] + 1 & ":EL" & [COLOR="Red"]satır[/COLOR] + 3) = ""
    Range("EN" & [COLOR="Red"]satır[/COLOR] + 1 & ":FC" & [COLOR="Red"]satır[/COLOR] + 3) = ""
    Range("FE" & [COLOR="Red"]satır[/COLOR] + 1 & ":FT" & [COLOR="Red"]satır[/COLOR] + 3) = ""
    Range("FV" & [COLOR="Red"]satır[/COLOR] + 1 & ":GK" & [COLOR="Red"]satır[/COLOR] + 2) = ""
End Sub
 
Son düzenleme:
Ömer BARAN' Alıntı:
Merhaba.
İlgili sayfanın kod bölümüne ekleyip
(alt tarfatan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde karşınıza gelecek VBA ekranının sağ tarafına yapıştırınız)
sayfaya ekleyeceğiniz bir düğme/şekil ile ilişkilendiriniz.
NOT: Eklenen satırlardaki kırmızı ve siyah zeminli hücreler bir üstteki üçlü satır grubuyla aynı değerleri içerir, sarı zeminli olanlar boşaltılır.
Kod: 
Sub SATIR_EKLE_BRN()
satır = [B65536].End(3).Row
    Rows(satır - 2 & ":" & satır).Copy
    Range("A" & satır + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("D" & satır + 1 & ":CE" & satır + 3) = ""
    Range("CG" & satır + 1 & ":CT" & satır + 3) = ""
    Range("CV" & satır + 1 & ":EL" & satır + 3) = ""
    Range("EN" & satır + 1 & ":FC" & satır + 3) = ""
    Range("FE" & satır + 1 & ":FT" & satır + 3) = ""
    Range("FV" & satır + 1 & ":GK" & satır + 2) = ""
End Sub
Genişletmek için tıkla ...

Hocam özür dilerim hata verdi
 
Denemeden cevap yazmam.
Bendeki dosyada sorunsuz çalışıyor.

Ekteki belgede düğmeye tıklayarak test ediniz.
 

Ekli dosyalar

hocam kusuruma bakmayın haddime değil ama bende sorun çıkardı şöyleki Office 2003 kullanıyorum butona basınca satır= de hata gösteriyor
 
Garibime gitti doğrusu son dolu satır tespit satırında hata ile ilk kez karşılaşıyorum.
-- B sütunundaki son dolu hücre seçiliyken CTRL tuşuyla birlikte AŞAĞI OK tuşuna bastığınızda seçilen hücrenin satır numarası nedir acaba?
-- Son satıra gittiğinde yine CTRL tuşuna basılı iken YUKARI OK tuşuna bastığınızda B sütunundaki son dolu hücrenin bulunduğu hücreye gitmiyor mu?

Bir de kod'daki satır kelimesini (tüm satır kelimelerini) sat olarak değiştirerek (ilk cevabımdaki kod'da kırmızı renklendirdim) dener misiniz?
 
Peki ID ve şifreyi yazın.
Tam da bilgisayar başından kalkacaktım ama buna da bakıp ondan sonra kalkayım artık.
 
abi sanırım hat koptu çok teşekkür ederim. ALLAH razı olsun görüşmek üzere
SAYGILARIMLA
 
Son düzenleme:
TeamViewer versiyonum güncel değilmiş, benim ki 10.0.38843 güncelleme istediği için (sizin makinede daha yeni bir versiyon olduğu uyarısını alıyorum.
Güncelleme işlemini başlattım, bekliyorum, birazdan tamamlanır sanırım.
 
Team Viewer bağlantısı kesildi, sorun hallolduğuna göre sorun yok.
Trabzon'a tekrar selamlar, sağlıcakla kalın.
 
Eyvallah, sağlıcakla kalın, iyi sabahlar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst