Biçimlendirme hakkında

[bravo64]

Merhaba arkadaşlar,
bir tablom var ve userformla bu tabloya yeni girişler yapıyorum..B3:b28 aralığına alt alta gelecek şekilde aktarma yapıyorum.Yalnız yeni girişler son satıra oturduğunda ,bir üst satırın biçimlendirmesini nasıl yaptırabilirim..(makro ile)
Teşekkürler..

 

[htsumer]

B3:b28 aralığına alt alta gelecek şekilde aktarma yapıyorum.

Aktarmaya ait kodlarınızı yazarmısınız.

 

[bravo64]

İlginize teşekkürler,kod aşağıda yazdığım gibi
Private Sub CommandButton4_Click()
If MsgBox("KABUL DEFTERİNE KAYDI ONAYLIYORMUSUNUZ?", 4 + 32, "ONAY") = vbNo Then Exit Sub
Set s1 = Sheets("kabul")
sonsat = Cells(65536, 2).End(xlUp).Row + 1
s1.Cells(sonsat + 1, 2).Select
Selection.EntireRow.Insert
t = WorksheetFunction.CountA(Worksheets("kabul").[b3:b65536]) + 3
Sheets("kabul").Cells(t, 2) = TextBox33.Value
Sheets("kabul").Cells(t, 3) = TextBox34.Value
Sheets("kabul").Cells(t, 4) = TextBox35.Value
Sheets("kabul").Cells(t, 5) = TextBox36.Value

 

[Levent Menteşoğlu]

Size iki kod öneriyorum.

1.önerim:Satırı sürükleyerek biçimi aktarma

[vb:1:28f8d6a966]sonsat = [b65536].End(3).Row
Rows(sonsat).AutoFill Destination:=Rows(sonsat & ":" & sonsat + 1)
Rows([b65536].End(3).Row).ClearContents
[/vb:1:28f8d6a966]

2.önerim:Satırı kopyalayarak biçimi aktarma

[vb:1:28f8d6a966]sonsat = [b65536].End(3).Row
Rows(sonsat).Copy
Rows(sonsat + 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False[/vb:1:28f8d6a966]

 

[bravo64]

size çok teşekkür ediyorum..Bu kadar çabuk sorun çözümü herhalde hiçbir platformda olamaz..
saygılarımla..