Soru =METNEÇEVİR(C2;"GG.AA.YYYY") VBA KOD Talebi

[TiOr]

Merhaba,

=METNEÇEVİR(C2;"GG.AA.YYYY")
Formülünü bu şekilde yapmadan C sütununun tamamını kod ile nasıl metne çevirebilirim.

Örnek veriyorum;
C sütununda tarihler var bu tarihler texboxtan giriş, data aktarımı ve manüel giriş ile alt alta sıralanıyor. Ben bunları hemen yanına D sütununa ilgili formülü uyguluyorum sonra D sütununu komple seçip değerler olarak yapıştırıyorum. Sonra C sütununu siliyorum. Ve C sütununun da ne kadar veri varsa metne çevrilmiş oluyor.

Kod uygulayarak tek bir tıkla C sütununu nasıl metne çevir işlemini yaptırabilirim.

=METNEÇEVİR(C2;"GG.AA.YYYY") formülünün koduna ihtiyacım var şu şekilde düşünebilirsiniz; =METNEÇEVİR(C:C;"GG.AA.YYYY")

Desteklerinizi talep eder, hayırlı akşamlar dilerim.

Saygılarımla,

 

[RBozkurt]

Textboxdan girerken metin olarak girince problem çözülmez mi? Yada bu veri nerden dolduruluyor ise kullandığınız makro revizyon yapılabilir.

 

[TiOr]

Sn. @RBozkurt Merhaba,
20 adet veri texboxtan giriliyor,
100 adete yakın veri aktarım yoluyla aktarılıyor,
Bir o kadarda istisnai bir durum olsa da excele manuel giriliyor kopyala yapıştır yolu ile,
Mesaj #1 de ki talebim işimi görecek ve kafi gelecektir.
Farklı bir revizyona ihtiyaç yok.
Teşekkürler, hayırlı akşamlar...

 

[RBozkurt]

Deneyiniz,

Sub MetinCevir()
    Dim sonSatir As Long
    Dim i As Long
    sonSatir = Range("C" & Rows.Count).End(xlUp).Row
    For i = 2 To sonSatir
        Range("C" & i).Value = Format(Range("C" & i).Value, "DD.MM.YYYY")
    Next i
End Sub

 

[TiOr]

@RBozkurt Üstadım Merhaba,
Çok teşekkür ettim.
Emeğine sağlık.
İşlem tamamdır.
Varolasın.
Hayırlı akşamlar..

 

[RBozkurt]

Estf. hocam kolay gelsin.

 

[TiOr]

@RBozkurt Hocam Günaydın,
Bu uygulamayı userform üzerinde bir commonbuttona atayacağım.
Bu doğrultuda sayfa adı belirtmemiz gerekiyor.
Sayfa adı belirterek kodu revize edebilir misin zahmet olmazsa.
Çok güzel oldu ama dediğim gibi olması gerekiyor öbür türlü sayfaya gir çık iş uzuyor.
Çok teşekkürler, hayırlı cumalar.

 

[RBozkurt]

Merhaba, deneyiniz

Sub MetinCevir()
Dim sonSatir As Long
Dim i As Long
With Sheets("XXXX")
sonSatir = .Range("C" & .Rows.Count).End(xlUp).Row
For i = 2 To sonSatir
.Range("C" & i).Value = Format(.Range("C" & i).Value, "DD.MM.YYYY")
Next i
End With
End Sub

 

[TiOr]

King, eline emeğine sağlık.
Hayırlı cumalar dilerim.