Excelde iki tarih arasını tek kutuda göster yardım

[albatros44]

1.soru

Excelde iki tarih arasını tek kutuda birleştirmek istiyorum nasıl yapabilirim ?

Yani şöyle

Deneme dosyası için

https://www.sendspace.com/file/15535o



-----------
2.soru

Birde bu oluşturduğum tarihleri aşağıdan yukarı doğru tek sutunda yapmak istiyorum yani şöyle

---------

Teşekkürler

 

[fireman64]

Kodları birbutona bağlayıp deneyin

Private Sub CommandButton1_Click()
Range("G1:as38").ClearContents
For i = 1 To 38
If Range("b" & i).Value > 0 And Range("F" & i).Value > 0 Then
Range("G" & i).Value = Range("b" & i).Value & " - " & Range("F" & i).Value
End If
Next
    Range("G1:G3[COLOR="Red"]8[/COLOR]").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

End Sub

 

[fireman64]

Range("G1:G3[COLOR="Red"]8[/COLOR]").Select

31 i 38 olarak düzelttim

 

[albatros44]

Hocam çok teşekkür ederim 2003 kullanıyorum bir türlü çalıştıramadım, size zahmet olmazsa ne yapmalıyım ?

buradan sonra ne yapmalıyım ?

 

[fireman64]

http://s4.dosya.tc/server3/ohhhyi/takvim.xls.html

 

[albatros44]

sağolasın fakat yinede olmadı

 

[fireman64]

Güvenlik düzeyini düşürdükten sonra dosyayı kapatıp tekrar açın

 

[albatros44]

Çok sağolun, oldu sonunda