Tarih yazdırma formülü

[recepkull]

Arkadaşlar bir tarihi başka bir hücreye ay cinsinden yazdırmak için nasıl bir formül kullanıyoruz ? Mesela 18.08.2019 tarihini başka bir hücrede Ağustos olarak görünmesini istiyorum bunu nasıl yapabilirim?

 

[Haluk]

Bahsettiğiniz tarih verisi A1 hücresindeyse,


İngilizce Excel versiyonu için:

=TEXT(A1;"aaaa")

Türkçe Excel versiyonu için:

=METNEÇEVİR(A1;"aaaa")

.

 

[recepkull]

Hocam basit bir şey daha sormak istiyorum bunun için yeni bir konu açmayım dedim. Makro ile sayfa kopyalama yapıyorum, makronun çalışması bittiğinde hücreler seçili kalıyor. Ben hücrelerin seçili kalmamasını istiyorum bunu nasıl yapabilirim. Örnek resim :

Kullandığım makro kodu

Syf = CStr(Sheets("Veri").[Z2])
Sheets("Veri").Range("N9:V26").Copy
If Sheets("Veri").Range("Z3") = 1 Then
Sheets(Syf).Range("O16:W33").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

 

[Necdet]

Aşağıdaki kodları deneyiniz.

    Syf = CStr(Sheets("Veri").[Z2])
    If Sheets("Veri").Range("Z3") = 1 Then Sheets("Veri").Range("N9:V26").Copy Sheets(Syf).Range("O16")

 

[recepkull]

Hocam debug hatası verdi. Kullandığım kodun tamamını paylaşıyorum belki kodun bir kısmını paylaştığım için böyle oldu.

Sub Kaydet()

Syf = CStr(Sheets("Veri").[Z2])
Sheets("Veri").Range("N9:V26").Copy
If Sheets("Veri").Range("Z3") = 1 Then
Sheets(Syf).Range("O16:W33").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
Sheets(Syf).Select
    
ElseIf Sheets("Veri").Range("Z3") = 2 Then
Sheets(Syf).Range("BR16:BZ33").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Sheets(Syf).Select
ActiveWindow.SmallScroll ToRight:=55

ElseIf Sheets("Veri").Range("Z3") = 3 Then
Sheets(Syf).Range("DU16:EC33").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Sheets(Syf).Select
ActiveWindow.SmallScroll ToRight:=110

ElseIf Sheets("Veri").Range("Z3") = 4 Then
Sheets(Syf).Range("FX16:GF33").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Sheets(Syf).Select
ActiveWindow.SmallScroll ToRight:=160
End If
End Sub

 

[Korhan Ayhan]

Aşağıdaki kod bloğunu kendinize uyarlayınız.

Sub Kopyala()
    Sheets("Sayfa2").Range("O16:W33").Value = Sheets("Sayfa1").Range("N9:V26").Value
    Sheets("Sayfa2").Range("O16:W33").NumberFormat = Sheets("Sayfa1").Range("N9:V26").NumberFormat
End Sub

 

[Necdet]

Merhaba,
Ben deneyerek gönderdim kodları, siz kendinize uyarlayınız.

 

[recepkull]

Yardımlarınız için teşekkür ederim. Verdiğiniz formülleri kendime göre uyarlamaya çalışacağım.

 

[Korhan Ayhan]

Deneyiniz.

=ÇOKEĞERSAY(Siparişler!C5:C25;">=01.01.2018";Siparişler!C5:C25;"<=31.01.2018")

Ya da;

=TOPLA.ÇARPIM(--(METNEÇEVİR(Siparişler!C5:C25;"aaaa")="Ocak")*(Siparişler!C5:C25<>""))

 

[recepkull]

Aşağıdaki kodları deneyiniz.

    Syf = CStr(Sheets("Veri").[Z2])
    If Sheets("Veri").Range("Z3") = 1 Then Sheets("Veri").Range("N9:V26").Copy Sheets(Syf).Range("O16")

Hocam verdiğiniz kodu kendime göre uyarladım tek sıkıntı N9:V26 hücre aralığını kopyalarken formülleri de kopyalıyor. ben sadece değerleri kopyalamasını istemiştim. Verdiğiniz koda nasıl bir ekleme yaparak bu istediğimi yapabilirim.