başka sayfalardaki aynı formatı ile alıp sıralama

[ismailozkan4224]

değerli arkadaşlar 25 sayfadaki tarih verilierini alıyorum. ancak dd.mm.yyyy bu formatla alabiliyorum.diğer tüm sayfalardaki format ise dd.mm.yyyy hh:mm şeklindedir. her hücreye girip çift tıklarsam format düzeliyor ancak saat ve dakika 00:00 oluyor. bir takım denemeler yaptım ama olmadı
Sub Formuller()
Sheets("Formüller").Select
Range("Q2:Q26").Select
Selection.ClearContents
For i = 1 To 25
Cells(i + 1, 17) = Format( "dd.mm.yyyy hh:mm")
Cells(i + 1, 17) = Sheets(i).Cells(8, 26)
Range("Q" & i + 1) = Sheets(i).Cells(8, 26)
Range("Q" & i + 1).Select
Cells(i, 17).Offset(1, 0).Select
Cells(i, 17).Select
ActiveCell.FormulaR1C1 = Cells(i, 17)
ActiveCell = Cells(i, 17)

Next i
Range("Q2").Select
End Sub

 

[dEdE]

Merhaba,
Eğer sorunuzu yanlış anlamadıysam; kodunuzdaki şu iki satırı yer değiştirmeniz yeterli olacaktır.

Cells(i + 1, 17) = Format( "dd.mm.yyyy hh:mm")
Cells(i + 1, 17) = Sheets(i).Cells(8, 26)
'YUKARIDAKİ SATIRLARI AŞAĞIDAKİ GİBİ YAPALIM
Cells(i + 1, 17) = Sheets(i).Cells(8, 26)
Cells(i + 1, 17) = Format( "dd.mm.yyyy hh:mm")

Eğer bu sorununuzu çözmediyse örnek dosya paylaşabilir misiniz?

 

[ismailozkan4224]

Merhaba,
Eğer sorunuzu yanlış anlamadıysam; kodunuzdaki şu iki satırı yer değiştirmeniz yeterli olacaktır.

Cells(i + 1, 17) = Format( "dd.mm.yyyy hh:mm")
Cells(i + 1, 17) = Sheets(i).Cells(8, 26)
'YUKARIDAKİ SATIRLARI AŞAĞIDAKİ GİBİ YAPALIM
Cells(i + 1, 17) = Sheets(i).Cells(8, 26)
Cells(i + 1, 17) = Format( "dd.mm.yyyy hh:mm")

Eğer bu sorununuzu çözmediyse örnek dosya paylaşabilir misiniz?

teşekkür ederim dede ama olmuyor. hücrenin içine girip enter yapmak gerekiyor. Q2:Q26 arasına hücre içine girip enter yapacak bir makro var mı?

 

[dEdE]

Merhaba,
"...hücre içine girip enter yapacak bir makro var mı? ..." Var. Var ama bu defa da şurası olmadı, burası olmadı gibi sıkıntılar oluyor.
Sorununuzu/sorunuzu örnek dosya üzerinde, şu işlemi yapıp şu sonuca ulaşmak istiyorum şeklinde paylaşırsanız, mutlaka çözüm bulunur. Ben, 14 mart salı gününe kadar ilgilenemeyeceğim. Bu arada forum sakinleri sorunu çözecektir.

 

[ismailozkan4224]

Merhaba,
"...hücre içine girip enter yapacak bir makro var mı? ..." Var. Var ama bu defa da şurası olmadı, burası olmadı gibi sıkıntılar oluyor.
Sorununuzu/sorunuzu örnek dosya üzerinde, şu işlemi yapıp şu sonuca ulaşmak istiyorum şeklinde paylaşırsanız, mutlaka çözüm bulunur. Ben, 14 mart salı gününe kadar ilgilenemeyeceğim. Bu arada forum sakinleri sorunu çözecektir.

teşekkür ederim dede. sorun çözüldü.
Cells(i + 1, 17) = Sheets(i).Cells(8, 26)
Cells(i + 1, 17) = Format( "dd.mm.yyyy hh:mm")
cells ifadesini range yapınca düzeldi