Soru Tarihe Çevirme

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
225
Excel Vers. ve Dili
Office Pro 2016 TR
Altın Üyelik Bitiş Tarihi
09-02-2028
Elimde olan bazı veriler örnek verdiğim şekilde bunlara filtre uygulamıyorum tarihe döndürmek için hücre içeresine gir çık yapmam gerekiyor bu sorunu nasıl çözebilirim veri çok fazla.
 

Ekli dosyalar

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Merhaba,

Boş bir hücreye 1 yazın ve kopyalayın. Tarihe çevireceğiniz alanı seçip özel yapıştır- çarp seçeneği ile yapıştırın. Sonra tarih olarak biçimleyin.
 

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
225
Excel Vers. ve Dili
Office Pro 2016 TR
Altın Üyelik Bitiş Tarihi
09-02-2028
Merhaba,

Boş bir hücreye 1 yazın ve kopyalayın. Tarihe çevireceğiniz alanı seçip özel yapıştır- çarp seçeneği ile yapıştırın. Sonra tarih olarak biçimleyin.
Teşekkür ederim. Bunu makro ile yapamayız mı örnekteki verileri incelediniz mi

Verilerimi yapıştırmak için orjinal dosyam da şu kodu kullanıyorum kopyalama yaptığım yerde de aynı tarih filtresi çalışmıyor

Kod:
Sheets(sayfa).Range("b" & SonSat).PasteSpecial (xlPasteValues)
 

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Forumda sayısız örnek var, küçük bir arama yapabilirsiniz.
 

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
225
Excel Vers. ve Dili
Office Pro 2016 TR
Altın Üyelik Bitiş Tarihi
09-02-2028
Bakayım teşekkür ederim bakmıştım bulamamıştım
 

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
225
Excel Vers. ve Dili
Office Pro 2016 TR
Altın Üyelik Bitiş Tarihi
09-02-2028

Kullanmadığım hücrede verilerime yukarıdaki formülü yazdım daha sonra onu kopyalayıp daha sonra aynı yere yapıştırdım.

Kod:
Sub SEC()
If ActiveSheet.Name = "3" Then 'SAYFA ADI 3 İSE
SonSat = Cells(Rows.Count, "B").End(3).Row + 1
    Range("B" & SonSat).Select
    SonSat = Cells(Rows.Count, "B").End(3).Row + 1
    sec2 = "AM" & SonSat
    Range("AM7:AO7").Select 'KOPYALANACAK VERİLERİ SEÇ
    Selection.copy
    Range("AM8:AO" & SonSat).Select
    ActiveSheet.Paste
    '----
    Range("B7").Select
    Range("AM7:AM" & SonSat).Select
    Selection.copy
    Range("D7").PasteSpecial (xlPasteValues)
    
    Range("B7").Select
    Range("AN7:AN" & SonSat).Select
    Selection.copy
    Range("G7").PasteSpecial (xlPasteValues)
    
    Range("B7").Select
    Range("AO7:AO" & SonSat).Select
    Selection.copy
    Range("J7").PasteSpecial (xlPasteValues)
    Range("B7").Select
Else
End If
    MsgBox "İşlem Tamamlandı"
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,330
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
İnceleyiniz.

 

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
225
Excel Vers. ve Dili
Office Pro 2016 TR
Altın Üyelik Bitiş Tarihi
09-02-2028
İnceleyiniz.

Hocam üstte bulmuş olduğum kodlarla çözdüm bunu da inceleyeyim teşekkür ederim
 
Üst