FATURA ŞABLONUNDAN BELLİ BİLGİLERİ ALMAK

mustafa58 · 9 Şubat 2006

FATURA ÃABLONUNDAN BELLÃ BÃLGÃLERÃ ALMAK

EKTE GÃ?NDERDİÃİM DOSYANIN FATURA ADLI ÇALIÃMA SAYFASINI ÃABLON OLARAK KAYDETTİÃİNİZİ DÜÃÜNÜN VE BU ÃABLON İLE FATURA BİLGİLERİNİ SAKLIYORSUNUZ. BENİM İSTEÃİM BU BİLGİLERİ VERİ OLARAK ADLANDIRDIÃIM DÜZENDE SAKLAMAK. BİR TÜRLÜ BOÃ SATIRA KAYIT YAPAMADIM (VERİ) YARDIMCI OLURSANIZ SEVİNİRİM.

selections · 11 Şubat 2006

Kod:

Dim i As Variant
Dim t As Integer
For i = 10 To 26
    t = WorksheetFunction.CountA&#40;Worksheets&#40;"veri"&#41;.&#91;a1&#58;a50000&#93;&#41;
    If Worksheets&#40;"fatura"&#41;.Cells&#40;i, 1&#41; = "" Then
    Else
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 1&#41; = Worksheets&#40;"fatura"&#41;.Range&#40;"f2"&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 2&#41; = Worksheets&#40;"fatura"&#41;.Range&#40;"f3"&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 3&#41; = Worksheets&#40;"fatura"&#41;.Range&#40;"b1"&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 4&#41; = Worksheets&#40;"fatura"&#41;.Range&#40;"b2"&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 5&#41; = Worksheets&#40;"fatura"&#41;.Cells&#40;i, 1&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 6&#41; = Worksheets&#40;"fatura"&#41;.Cells&#40;i, 2&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 7&#41; = Worksheets&#40;"fatura"&#41;.Cells&#40;i, 3&#41;
    Worksheets&#40;"veri"&#41;.Cells&#40;t + 1, 8&#41; = Worksheets&#40;"fatura"&#41;.Cells&#40;i, 4&#41;
    End If
Next i

mustafa58 · 17 Şubat 2006

öncelikle ilgi gösterdiğiniz için TEÃEKKÜR eder ayrıca geç yanıtladığım için Ã?ZÜR dilerim. gönderdiğiniz kodlar çok kullanışlı ama ben veri diye adlandırdığım sayfanın başka bir excel tablosu olmasını istiyordum. yani fatura adlı excel tablosundaki bilgiler veri adlı başka bir excel tablosuna yazmasını istiyordum
bunun için nasıl değişiklik yapmalıyım

FATURA ŞABLONUNDAN BELLİ BİLGİLERİ ALMAK

mustafa58

selections

mustafa58