Tarih biçimi

[metinavci23]

ekte sunululan dosyara sayfa1'de sayfa2'ye veri aktarımı yaptığımda tarihler ay/gün/yıl olarak aktarılıyor.nasıl bu tarihleri gün/ay/yıl olarak aktarılmasını yapabilirm.yardımcı olacağınıza yürekten inanıyorum ve şimdiden teşekür ederim.saygılarımla

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde değiştiriniz.

Sub Düzenle()
On Error Resume Next
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 2 To s1.[a65536].End(3).Row
If s1.Cells(i, "e").Value > "" Then
sat = WorksheetFunction.CountA(s2.Range("a1:a65536")) + 1
s2.Cells(sat + 1, "a").Value = Format(CDate(s1.Cells(i, "a").Value), "dd/mm/yyyy")
s2.Range(s2.Cells(sat + 1, "b"), s2.Cells(sat + 1, "h")).Value = s1.Range(s1.Cells(i, "b"), s1.Cells(i, "h")).Value
End If
Next i
MsgBox "İşlem Tamam"
s1.Range("a1:h3").ClearContents
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[metinavci23]

makro ile ilgili

teşekürler sayın Orion2 ve Sayın Ripek.Ellerinize sağlık.yalnız bir sorum daha olacak.ben Sayfa 2 'yi veri tabanı olarak kullanmayı düşünüyorum,ama satırlar yetmeyebilir.nasıl bir ileve makro yazılır ki sayfa1 den sayfa 2 aktarma yaparken sayfa2 dolduğunda Sayfa 3 otomatik olarak kayıt etmeye başlasın.yani sayfa1'den sayfa3 yazmaya başlasın.şimdiden teşekür ederim.iyi varsınız arkadaşlar