ERP Nedir? | Türkiye'nin ERP Forum Platformu : Excel'e veri alma hatasi

ERP Nedir? | Türkiye'nin ERP Forum Platformu : Excel'e veri alma hatasi http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 01:40:44 +0000 Wed, 17 Mar 2010 11:14:12 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2016 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[Excel'e veri alma hatasi : hocam bende tam bulmustum ilginize...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11311.html#11311 Yazar: unalh
Konu: 2016
Gönderim Zamanı: 17 Mart 2010 Saat 11:14

hocam bende tam bulmustum

ilginize tesekkürler

Hayirli isler.]]> Wed, 17 Mar 2010 11:14:12 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11311.html#11311 <![CDATA[Excel'e veri alma hatasi : A2 ve A3 bos, sonuç 0 dönüyor...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11310.html#11310 Yazar: Conari
Konu: 2016
Gönderim Zamanı: 17 Mart 2010 Saat 10:56

A2 ve A3 bos, sonuç 0 dönüyor problem yok yani. Su formülleri gir..

A2 =EGER(G2="Beklemede";"B";"O")

A3 =EGER(G4="Portföy";"P";EGER(G4="Tahsil";"T";"C"))

]]> Wed, 17 Mar 2010 10:56:25 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11310.html#11310 <![CDATA[Excel'e veri alma hatasi : Bu sekilde de çalismadi Dosyayi...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11309.html#11309 Yazar: unalh
Konu: 2016
Gönderim Zamanı: 17 Mart 2010 Saat 10:13

Bu sekilde de çalismadi

Dosyayi ekledim bakma imkaninin varmi

http://www.upload.gen.tr/d.php/s10/2dv6t1x3/__EK_TAK__P.xls.html

]]> Wed, 17 Mar 2010 10:13:56 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11309.html#11309 <![CDATA[Excel'e veri alma hatasi : Üst tarafi degistir sen bence. Dim...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11307.html#11307 Yazar: Conari
Konu: 2016
Gönderim Zamanı: 17 Mart 2010 Saat 09:05

Üst tarafi degistir sen bence.

Dim SqlText As String
Dim conn, rs As Object

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

]]> Wed, 17 Mar 2010 09:05:36 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11307.html#11307 <![CDATA[Excel'e veri alma hatasi : Hocam Söyle bir uyari verdi...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11305.html#11305 Yazar: unalh
Konu: 2016
Gönderim Zamanı: 16 Mart 2010 Saat 18:40

Hocam

Söyle bir uyari verdi nesne kapali oldugundan uygulama baslatilamadi

]]> Tue, 16 Mar 2010 18:40:01 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11305.html#11305 <![CDATA[Excel'e veri alma hatasi : hata yok gibi rs.Open SqlText,...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11304.html#11304 Yazar: Conari
Konu: 2016
Gönderim Zamanı: 16 Mart 2010 Saat 18:06

hata yok gibi

rs.Open SqlText, conn, adOpenStatic, adLockReadOnly

kaldirip dene

]]> Tue, 16 Mar 2010 18:06:30 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11304.html#11304 <![CDATA[Excel'e veri alma hatasi : Merhaba arkadaslar Bir arkadasin...]]> http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11303.html#11303 Yazar: unalh
Konu: 2016
Gönderim Zamanı: 16 Mart 2010 Saat 17:44

Merhaba arkadaslar

Bir arkadasin yapmis oldugu programi ben baska excelde çalistirmak istedim fakat birtürlü olmadi yardimlarinizi talep ediyorum.

Sirketler sayfasinda problem yok veriler gayet güzel geliyor fakat rapor almak istedigim zaman birtürlü olmuyor.

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SqlText As String
With conn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=" & Sayfa1.Cells(4, 5).Value & ";USER ID=" & Sayfa1.Cells(8, 5).Value & ";PASSWORD=" & Sayfa1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = Sayfa1.ComboBox1.Text
    End With
    SqlText = "SELECT A.SC_NO,A.VADETRH,A.SC_VERENK,"
    SqlText = SqlText + " B.CARI_ISIM,A.SC_ABORCLU,"
    SqlText = SqlText + " A.YERI,A.CEKSERI,A.SC_VERILENK,(CASE WHEN SC_YERI='T' THEN C.ACIKLAMA ELSE (SELECT D.CARI_ISIM FROM TBLCASABIT D WHERE D.CARI_KOD=A.SC_VERILENK) END),A.RAPOR_KODU,"
    SqlText = SqlText + " A.TUTAR"
    SqlText = SqlText + " FROM TBLMCEK A WITH (NOLOCK) JOIN TBLCASABIT B WITH (NOLOCK) ON (A.SC_VERENK=B.CARI_KOD)"
    SqlText = SqlText + " LEFT OUTER JOIN TBLBNKHESSABIT C WITH (NOLOCK) ON (A.SC_VERILENK=C.NETHESKODU)"
    SqlText = SqlText + " WHERE A.VADETRH BETWEEN '" + Format$(Sayfa7.Cells(2, 2), "yyyy-mm-dd") + "' AND '" + Format$(Sayfa7.Cells(3, 2), "yyyy-mm-dd") + "'"
    SqlText = SqlText + " AND A.SC_SONDUR='" & Sayfa7.Cells(2, 1).Value & "'"
    SqlText = SqlText + " AND A.SC_YERI='" & Sayfa7.Cells(3, 1).Value & "'"
    SqlText = SqlText + " ORDER BY A.VADETRH ASC"
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    Sayfa7.Range("B11:M10000").ClearContents
    Sayfa7.Activate
    i = 11
    Do While Not rs.EOF
        Sayfa7.Cells(i, 2).Value = rs(0)
        Sayfa7.Cells(i, 3).Value = rs(1)
        Sayfa7.Cells(i, 4).Value = rs(2)
        Sayfa7.Cells(i, 5).Value = rs(3)
        Sayfa7.Cells(i, 6).Value = rs(4)
        Sayfa7.Cells(i, 7).Value = rs(5)
        Sayfa7.Cells(i, 8).Value = rs(6)
        Sayfa7.Cells(i, 9).Value = rs(7)
        Sayfa7.Cells(i, 10).Value = rs(8)
        Sayfa7.Cells(i, 11).Value = rs(9)
        Sayfa7.Cells(i, 12).Value = rs(10)
        rs.MoveNext
        i = i + 1
    Loop
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing

End Sub

Sanirim hata (kirmizi ) bu kisimda F8 ile çalistirdigim zaman burayi atliyor

Düzenleyen unalh - 16 Mart 2010 Saat 17:45]]> Tue, 16 Mar 2010 17:44:07 +0000 http://www.erpne.org/excele-veri-alma-hatasi_topic2016_post11303.html#11303