• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Tarihe Çevirme

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
232
Excel Vers. ve Dili
Office Pro 2016 TR
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

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.
 
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)
 
Forumda sayısız örnek var, küçük bir arama yapabilirsiniz.
 
Bakayım teşekkür ederim bakmıştım bulamamıştım
 

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
 
İnceleyiniz.

 
İnceleyiniz.


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