tarih ve formüllü tarih ?

[igultekin2000]

hayırlı geceler; form sakinlerinin yardımlarıyla çalışmam bitti sayılır. Sayfa1' de A sütunu tarih formatında , H sütunu ise I sütundaki soldan 5 karaktere, yıl eklenerek elde edilen tarih şeklinde

=SOLDAN(I5;5)&"."&2018

oluşuyor. Makronun sonuçlanması için A ve H sütunun aynı formatta olması gerekiyor. H sütununda A sütunu ile tanıştırmam lazım () , formülü sayıya çevir le denetim olmadı, sayıya çevirip F2 ile tek tek düzeltmem gerekiyor. bunun daha pratik yolunu bulamadım. Örnek resim yüklüyorum az veri olmasına rağmen örnek dosyanın boyutu büyük olduğu için yükleyemedim.

 

[turist]

=(SOLDAN(I5;5)&"."&2018)*1
Hücre biçimlendirmesini "Tarih" yapın.

 

[çıtır]

Anladığım doğru ise deneyiniz.
Range("H2") = DateValue(Left(Range("I2"), 6) & "/" & "2018")
Aydan sonra metin var ise
Range("H2") = DateValue(Left(Range("I2"), 2) & "/" & Mid(Range("I2"), 4, 3) & "/" & "2018")

 

[igultekin2000]

=(SOLDAN(I5;5)&"."&2018)*1
Hücre biçimlendirmesini "Tarih" yapın.

denedim o şekilde de olmadı dedim ama parantez hatası yapmışım, bu şekilde sorunsuz oldu teşekkür ederim. Hayırlı geceler.

 

[igultekin2000]

Anladığım doğru ise deneyiniz.
Range("H2") = DateValue(Left(Range("I2";5) & "." & 2018))

bu kodu sub ve end sub arasına yazınca ;5 yerini gösterir şekilde yazı kırmızıya dönüyor, hatalı olabilir mi ?

 

[çıtır]

bu kodu sub ve end sub arasına yazınca ;5 yerini gösterir şekilde yazı kırmızıya dönüyor, hatalı olabilir mi ?

Evet hatalı yazılmış.Doğrusu
Range("H2") = DateValue(Left(Range("I2"), 6) & "/" & "2018") şeklinde olaçak.Ben konuyu Makro-VBA Soruları bölümünde açtığınız için vba kodu olarak cevaplandırdım.Yanlış anlamışım.Aydan sonra metin var ise aşağıdaki şekilde.
Range("H2") = DateValue(Left(Range("I2"), 2) & "/" & Mid(Range("I2"), 4, 3) & "/" & "2018")

 

[igultekin2000]

Evet hatalı yazılmış.Doğrusu
Range("H2") = DateValue(Left(Range("I2"), 6) & "/" & "2018") şeklinde olaçak.Ben konuyu Makro-VBA Soruları bölümünde açtığınız için vba kodu olarak cevaplandırdım.Yanlış anlamışım.Aydan sonra metin var ise aşağıdaki şekilde.
Range("H2") = DateValue(Left(Range("I2"), 2) & "/" & Mid(Range("I2"), 4, 3) & "/" & "2018")

teşekkür ederim, yanlız bu formülü " I " sonu dolu hücreye kadar sütun boyunca nasıl yapabiliriz. standart makrolar da uygulayabiliyordum ama biçimi benim bilgim dışıda adapte edemedim.

 

[çıtır]

Standart makrolarla aynı mantıkla uygulaya bilirsiniz.Döngüye atayarak
son = Cells(65336, "I").End(3).Row
For i = 2 To son
Range("H" & i) = DateValue(Left(Range("I" & i), 2) & "/" & Mid(Range("I" & i), 4, 3) & "/" & "2018")
Next i

 

[igultekin2000]

Standart makrolarla aynı mantıkla uygulaya bilirsiniz.Döngüye atayarak
son = Cells(65336, "I").End(3).Row
For i = 2 To son
Range("H" & i) = DateValue(Left(Range("I" & i), 2) & "/" & Mid(Range("I" & i), 4, 3) & "/" & "2018")
Next i

Teşekkür ederim, bu şekilde uygulayacağım. iyi çalışmalar

 

[çıtır]

Teşekkür ederim, bu şekilde uygulayacağım. iyi çalışmalar

Rica ederim dönüş yaptığınız için teşekkür ederim.Kolay gelsin.