Veri getirme

[f_alkan]

Ekte soru mevcuttur.
Tşk ediyorum.

 

[Vedat Özer]

Selamlar,


Boş bir modül ekleyip aşagıdaki kodları yapıştırıp Bir butona bağlayıp çalıştırın,

Altarnatif çözümler olabilir.

Sub AKTAR()
    Range("A1:G1").Select
    Range("G1").Activate
    Selection.AutoFilter
    Range("G2").Select
    Selection.AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd
    Columns("A:G").Select
    Range("G1").Activate
    Selection.Copy
    Sheets("Sayfa2").Select
    Cells.Select
    ActiveSheet.Paste
    Sheets("Sayfa1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=7
    Range("H1").Select
    MsgBox ("Aktarma işlemi tamamlanmıştır ! ")
End Sub

 

[f_alkan]

modüle kodu yapıştırıp çalıştırdım. hata veriyor.

 

[Vedat Özer]

Selamlar,


Kusura bakmayın,


Örnek dosya eklememiştim,


Lütfen kontrol edermisiniz.

 

[f_alkan]

gönderdiğiniz dosyada eksi(-) olan veriler gelmiyor. bize lazım olan Miktar Giriş-Çıkış Fark
Tutar Giriş-Çıkış Farkların sırasıyla gelmesidir. tekrar yardımınızı rica ederim.
kolay gelsin. hayırlı çalışmalar dileklerimle..

 

[enorjinalinsan]

Sayın Vedat Özer hocam
çok özür dilerim konu ile direk boğlantılı değil soracağım soru

excell de bir tablom var bu tablo için gereken bazı bilgiler sql veri tabanında
sql veri tabanındaki verileri excell in dış veri al / sql serverdan al seçeneği ile başka bir excel sayfasına getiriyorum
fakat sql deki veriler çok önemli veriler benim excelle getirmem konusu bu verilere zarar verirmi