• DİKKAT

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

DEĞERLENDİRME

Katılım
20 Nisan 2005
Mesajlar
189
DEÐERLENDÝRME

TABLO DA DEÐİÞİKLİK YAPTIM ÞİMDİ BAKABİLİRMİSİNİZ.YADA NASI BİRÞEY YAPABİLİRİZ.YARDIMCI OLABİLİRMİSİNİZ.
 
formatınızı biraz değiştirdim ama öncelikle çalışacağımız verileri düzenlemek gerekiyordu.Ekteki haline bakın bakalım , sizin işinizi görür mü ? :hey:
 
sağol eksoy bey ancak benim işimi görmüyor.tarih isteyincede türkçeye yazıyor
yinee teşekkürler ilginize
 
Belki basit ama işe yarar..
Sub bul()
Sheets("1").Select
Range("A2:J14").Select
ActiveSheet.ShowDataForm
End Sub
 
Ekteki örneği inceleyin. Bütün verileri tek sayfaya ve 15 satır aralıkla yani simetrik yazarsanız sorunsuz çalışacaktır.
 
levent bey çok sağolun tam istediğim gibi elinize sağlık teşekkürler
 
Geri
Üst