Hücrede ilk 10 karakter değiştirme.

[pNouma]

Merhabalar,
"A1" hücresinde aşağıdaki şekilde bir metin yazmakta; Başlangıçta yer alan tarih alanına, her seferinde günün tarihini (Date) yazacak şekilde;

……/……/20…… Tarihinde 2 asıl olarak tanzim edilmiştir.

Özetle Tarihinde yazan metine kadar olan kısım silinecek ve oraya günün tarihi yazılacak.

Aşağıdaki şekilde kod düzenledim ama; devamını getiremedim, yardımcı olursanız sevinirim.
iyi pazarlar.

Sub FindReplaceLimit()
    Dim metin As String
    Dim a As Long
    Dim n As Long

metin = ActiveSheet.Range("A1")
a = InStr(1, metin, "Tarihinde")

    With ActiveSheet

    For n = 1 To a - 2

            metin = Replace(metin, Mid(metin, n, 1), "x")
    Next

    End With

End Sub

 

[Muzaffer Ali]

Merhaba.

metin = Date & " Tarihinde 2 asıl olarak tanzim edilmiştir."

Yada

metin = Format(Date, "dd\/mm\/yyyy") & " Tarihinde 2 asıl olarak tanzim edilmiştir."

 

[ÖmerFaruk]

Sub Degistir()
Dim Metin As String, YeniMetin As String
Metin = Left([A1], 10)
YeniMetin = Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Year(Date)
Range("A1") = Replace(Range("A1"), Metin, YeniMetin)
End Sub

 

[halit3]

Alternatif kod

Sub FindReplaceLimit()
 
metin = ActiveSheet.Range("A1")
deg1 = Split(metin, "Tarihinde")
If UBound(deg1) > 0 Then
MsgBox Date & " Tarihinde " & deg1(1)
End If

End Sub

 

[ÖmerBey]

Merhaba,
Alternatif olarak formül kullanmak isterseniz A1 hücresine aşağıdaki formülü uygulayınız.

=METNEÇEVİR(BUGÜN();"gg/aa/yyyy")&" Tarihinde 2 asıl olarak tanzim edilmiştir."

 

[pNouma]

Hocalarım ilginize teşekkür ederim,

Sub Degistir()
Dim Metin As String, YeniMetin As String
Metin = Left([A1], 10)
YeniMetin = Format(Date, "dd") & "/" & Format(Date, "mm") & "/" & Year(Date)
Range("A1") = Replace(Range("A1"), Metin, YeniMetin)
End Sub

Ömer Hocam çok teşekkür ederim, kafamdaki çözüme en yakını sanırım bu şekilde olacaktır.
Muzaffer & Halit3 & OmerBey hocalarım sizlerin de çözümleri için ayrı-ayrı teşekkür ediyorum.