Yazı Problemi

[KRONX]

Herkese Merhaba,
C sütununda yazdığım bir yazıda b ,d ,h, satırlarının otomatik doldurulmasını istiyorum bunun işin şöyle bir kod yazdım,



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C65536]) Is Nothing Then
Cells(Target.Row, "B") = Format(Now, "dd/mm/yy")
Cells(Target.Row, "D") = Format(Now, "Mimari_Karden")
Cells(Target.Row, "H") = Format(Now, "Çalışma")
End If
End Sub


Kod çalışıyor fakat Mimari_Karden Yerine "3i3ari_Kar17e57" ,çalışma yerine de"Çalış3a" yazıyor bunu nasıl düzeltebilirim şimdiden teşekkürler

 

[Ömer]

Merhaba,

Eğer sadece metni yazacaksanız.

Cells(Target.Row, "D") = "Mimari_Karden"
Cells(Target.Row, "H") = "Çalışma"

Yeterli olur.

.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C65536]) Is Nothing Then
Cells(Target.Row, "B") = Format(Now, "dd/mm/yy")
Cells(Target.Row, "D") = "Mimari_Karden"
Cells(Target.Row, "H") = "Çalışma"
End If
End Sub

 

[KRONX]

Teşekkürler

Merhaba,

Eğer sadece metni yazacaksanız.

Cells(Target.Row, "D") = "Mimari_Karden"
Cells(Target.Row, "H") = "Çalışma"

Yeterli olur.

.