AccessTr.neT

sorudan da anlaşıldığı üzere userformdan kayıt ekledik ama sadece hücrelere data yazmış oluyoruz
arka renkler çizgiler vs olmuyor son satırın özellikleri ile yeni satır oluşturulup yeni kayıt o satıra yazılsa olur mu
mesela mouse ile ortalardan bir yerden sayfaya satır eklense diğer hücrelerin özellikleri ile satır ekleniyor bunu Vba kodları ile nasıl yapabiliriz

aşağıdaki kod işinize yarayabilir

Range("sonsatır").Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove

Range("sonsatır").EntireRow.Copy

Range("sonsatır").Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
bunu son satır yerine nasıl yazarız

lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Rows(lastrow).Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove

Rows(lastrow).EntireRow.Copy

Rows(lastrow).Offset(1).PasteSpecial xlPasteFormats

Application.CutCopyMode = False

Not: Konu başlıklarını çok uzun tutmayın sınır 85 olmasına rağmen her mesajın başına "cvp:" gibi bir ön ek eklediğinden "sınırı aştı" uyarısı veriyor. yani başlık 80den uzun olmasın.

teşekkürler çok işime yarayacak

eğer sayfada belirtecek olsaydık nasıl yazmamız gerekirdi