Satır kopyala ekle

[Kullancı0642]

Merhaba arkadaslar... daha önceki konuları arastırdım ancak cözüm bulamadım... 5 satırdan baslayan ( a ve m ) sütunları arasında bir cizelgem var... m5 den baslayarak m sütunundaki hücrelere veri girildiginde aynı bicim ve veri dogrulamaları olan bir alt satır ekleyecek bir makroya ihtiyacım var...

 

[Kullancı0642]

Arkadaslar konu günceldir... konu hk makro yazdım fakat hep aynı satıra ekleme yapıyor... m sütunudaki hücrelere veri girildiginde o satırı kopyalayıp boş olarak bir alt satıra eklemesini istiyorum... (ozellikleri ve bicimleri dahil )

 

[EmrExcel16]

Merhaba , konuyla ilgilenmek isteyenler için ve varsa bir çözümü daha hızlı ulaşmanızı sağlamak adına , örnek dosya eklemenizde , dosya üzerinde de ne yapılması gerektiğini açıklamanızda fayda var diye düşünüyorum , yine de tercih sizin tabi.

 

[Tevfik_Kursun]

Merhaba Kullancı0642,
Birinci satırda herhangi bir hücreye A sütununda ilk boş hücrenin adını yazdırın, probleminiz çözülür.
("A"&son satır +1 ) gibi ya da =BAĞ_DEĞER_SAY(A5:A1000)+5 gibi ...
Kullandığınız makroya da o hücreyi referans gösterin.
İyi çalışmalar

 

[YUSUF44]

Aslında bu isteğinizi veri alanınızı Tablo'ya dönüştürerek yapabilirsiniz. Makroyla yapmak isterseniz aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) kopyalayıp deneyin. M5'ten itibaren veri girişi yaptığınızda o satırın biçimini ve doğrulamasını ilk boş satıra kopyalar:

Private Sub Worksheet_Change(ByVal Target As Range)
son = WorksheetFunction.Max(5, Cells(Rows.Count, "M").End(3).Row + 1)
If Intersect(Target, Range("M5:M" & son)) Is Nothing Then Exit Sub
Application.EnableEvents = False
    a = Target.Row
    Range("A" & a & ":M" & a).Copy Cells(son, "A")
    Range("A" & son & ":M" & son).ClearContents
    Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

 

[Kullancı0642]

Yusuf bey tsk ederim... makro istedigim gibi ancaj kopyaladigı satırıda siliyor...

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Range("A" & son & ":M" & son).ClearContents
Bu satırı silin lütfen
iyi çalışmalar

 

[Kullancı0642]

Teyfik bey söylediginiz satırı sildigimde üst satırı kopyalayıp tamamını yapıstırıyor... bizim amacımız kopyaladıgı satırı bos eklemesiydi... yinede tsk ederim...

 

[YUSUF44]

Yusuf bey tsk ederim... makro istedigim gibi ancaj kopyaladigı satırıda siliyor...

Yaptığım denemelerde böyle bir durumla karşılaşmadım. Dosyanızı hatalı haliyle paylaşır mısınız?

 

[Kullancı0642]

Yusuf bey sorunu baska makroyla cözdüm... tsk ederim...