TARİH VE SAAT FORMATI

[Erdinç FIRTINA]

Sub AAA_sf_den_BBB_SAYFASINA_YAPIŞTIR()
Application.ScreenUpdating = False
Sheets("BBB").Range("A2:J2500").ClearContents
Sheets("AAA").Range("B2:B2500").Copy
Sheets("BBB").Range("A2:A2500").PasteSpecial Paste:=xlValues
Sheets("AAA").Range("C1:C2500").Copy
Sheets("BBB").Range("B1:B2500").PasteSpecial Paste:=xlValues
Sheets("AAA").Range("D12500").Copy
Sheets("BBB").Range("C1:C2500").PasteSpecial Paste:=xlValues
BURADA;
AAA SAYFASINDAN KOPYALANAN ‘C1:C2500’ SATIRI, BBB SAYFASINDAKİ ‘B1:B2500’ E AKTARILIRKEN, BBB SAYFASINDAKİ ‘B1:B2500’ E “01.05.2019” TARİH FORMATINDA AKTARILMASI İÇİN MAKRODA NASIL BİR DEĞİŞİKLİK YAPMAM GEREKİYOR?
YİNE;
AAA SAYFASINDAN KOPYALANAN ‘D12500’ SATIRI, BBB SAYFASINDAKİ ‘C1:C2500’ E AKTARILIRKEN, BBB SAYFASINDAKİ ‘C1:C2500’ E “09:00-09:45” SAAT FORMATINDA AKTARILMASI İÇİN MAKRODA NASIL BİR DEĞİŞİKLİK YAPMAM GEREKİYOR?
Application.CutCopyMode = False
MsgBox "işlem tamamlandı."
Sheets("BBB").Select
Range("A1").Select
End Sub

 

[Erdinç FIRTINA]

DOSYA İLİŞİKTEDİR. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER!!!

 

[çıtır]

Sub AAA_sf_den_BBB_SAYFASINA_YAPIŞTIR()
Application.ScreenUpdating = False
Sheets("BBB").Range("A2:J2500").ClearContents
Sheets("AAA").Range("B2:B2500").Copy
Sheets("BBB").Range("A2:A2500").PasteSpecial Paste:=xlValues
Sheets("AAA").Range("C1:C2500").Copy
Sheets("BBB").Range("B1:B2500").PasteSpecial Paste:=xlValues
Sheets("BBB").Range("B2:B2500").NumberFormat = "dd.mm.yyyy"
Sheets("AAA").Range("D1:D2500").Copy
Sheets("BBB").Range("C1:C2500").PasteSpecial Paste:=xlValues
Sheets("BBB").Range("C2:C2500").NumberFormat = "hh:mm - hh:mm"
Application.CutCopyMode = False
 MsgBox "işlem tamamlandı."
Sheets("BBB").Select
Range("A1").Select
End Sub

 

[Erdinç FIRTINA]

Sub AAA_sf_den_BBB_SAYFASINA_YAPIŞTIR()
Application.ScreenUpdating = False
Sheets("BBB").Range("A2:J2500").ClearContents
Sheets("AAA").Range("B2:B2500").Copy
Sheets("BBB").Range("A2:A2500").PasteSpecial Paste:=xlValues
Sheets("AAA").Range("C1:C2500").Copy
Sheets("BBB").Range("B1:B2500").PasteSpecial Paste:=xlValues
Sheets("BBB").Range("B2:B2500").NumberFormat = "dd.mm.yyyy"
Sheets("AAA").Range("D1:D2500").Copy
Sheets("BBB").Range("C1:C2500").PasteSpecial Paste:=xlValues
Sheets("BBB").Range("C2:C2500").NumberFormat = "hh:mm - hh:mm"
Application.CutCopyMode = False
MsgBox "işlem tamamlandı."
Sheets("BBB").Select
Range("A1").Select
End Sub

ÇOK ÇOK TEŞEKKÜR EDERİM SAYIN ÇITIR...

 

[çıtır]

ÇOK ÇOK TEŞEKKÜR EDERİM SAYIN ÇITIR...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.