Biçimlendirilmiş tablo içine aktarma

[mhizlim]

Düğmeye bastığımda biçimlendirilmiş hücre içine bir kayıt sonrasında (biçim dışı) alttan devam ediyor bunu nasıl içinden kaydettirebilir (metin olarak) ve otomatik hücre ekletilebilir.
Kopyalamadan sonra hücre seçili oluyor ve hata yaptırabiliyor yapıştırma işlemden sonra nası iptal edebiliriz

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Şöyle Denermisiniz

Sub TARİH_Tıklat()

If Range("B3") = "" Then
Range("B1").Copy
Range("b3").PasteSpecial (xlPasteValues)

Exit Sub
Else
b = [b100].End(3).Row

x = WorksheetFunction.Max(b)
Range("B1").Copy

Range("b" & x + 1).PasteSpecial (xlPasteValues)

End If
Application.CutCopyMode = False
Range("A1").Select
End Sub

 

[mhizlim]

seçimi kaldırdı ama excel tarafından oluşturulmuş tablo biçiminin dışından kaydediyor bunu nasıl içine aktarılabilir.

 

[ZorBey_]

O Excel Tarafından Olurturulmuş
Tablo Biçimi Nasıl
Tarih VE Saat Beraber Gibi Veya NAsıl
Açıklarmısınız

 

[mhizlim]

metin olarak tabi, ilk başlıktaki yazıya dikkatli bakarsan parantez içinde var. ayriyeten tarih yerine başka bir yazı da olabilir gene aynısı. sorun tarihte değil hücre içini tam anlayamamasından kaynaklı kodların ben onları soruyorum.