tarih problemim

[osmanuygun]

tarih ile ilgili bir örnek

saygıdeğer ustalarım tarih ile ilgili küçük bir sorunum var ve ben bunu aşamadım.Yapmak istediğim sey sıralı tarihlerdeki örneğin 01.04.2010 02.04.2010 03.04.2010 .. gibi tarihlerin hücre içindeki değerlerini hücre biçimlendirmeden nisan 10 halinde yapıyorum ancak hücrenin görüntüsü nisan 10 ancak değeri yine 01.04.2010 olarak kalıyor.yapmak istediğim şey hücrenin değerininde nisan 10 olarak değişmesi.umarım derdimi anlatabilmişimdir ekte dosyam da var.

 

[halit3]

Hücreleri biçimlendir/sayı/isteğe uyarlanmış/tür

aaaa yyyy

gibi yapın

 

[osmanuygun]

cevabınız için teşekkür ederim ancak örneği incelemeden yanıtlamışsıznız galiba istediğim bu değildi

 

[halit3]

cevabınız için teşekkür ederim ancak örneği incelemeden yanıtlamışsıznız galiba istediğim bu değildi

Bu resimdeki gibi mi istiyorsunuz.?

 

[adsoft]

saygıdeğer ustalarım tarih ile ilgili küçük bir sorunum var ve ben bunu aşamadım.Yapmak istediğim sey sıralı tarihlerdeki örneğin 01.04.2010 02.04.2010 03.04.2010 .. gibi tarihlerin hücre içindeki değerlerini hücre biçimlendirmeden nisan 10 halinde yapıyorum ancak hücrenin görüntüsü nisan 10 ancak değeri yine 01.04.2010 olarak kalıyor.yapmak istediğim şey hücrenin değerininde nisan 10 olarak değişmesi.umarım derdimi anlatabilmişimdir ekte dosyam da var.

metne çevir formülüyle olur ama =METNEÇEVİR(A1;"aaaa yyyy") yinede değer kısmında formül gözükür o zaman ama sen ben yazılıdığı gibi görmek istiyorum dersen bunu makro ile yaparsın

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
A sütununda düzeltme yapmak için.
Aşağıdaki kodları 1 kez çalıştırarak deneyiniz.

Sub kod_bir()
Columns("[B]B:B[/B]").NumberFormat = "mmmm yyyy"
End Sub

. . .

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub Tarihten_Cikart()

    Dim i As Long
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "B") = Format(Cells(i, "A"), "mmmm yyyy")
    Next i
    
    MsgBox "İşlem Tamamdır....", vbInformation, "Necdet YEŞERTENER --> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
    
End Sub

 

[osmanuygun]

saygıdeğer üstadım kusura kalmayın bu kodu nasıl kullanacağım

 

[Necdet]

Merhaba,

7 nolu mesaja dosyayı ekledim, inceleyiniz.

Makro kodlarını nasıl kullanacağınızı, yada nereye kopyalayacağınızı öğrenmelisiniz, her an lazım olabilir.

 

[osmanuygun]

teşekkürler tam istediğim şey bu idi elinize sağlık sayın ustam

 

[Necdet]

Güle güle kullanınız.