- Katılım
- 13 Ekim 2005
- Mesajlar
- 1,409
- Excel Vers. ve Dili
- Excel 2010 - 2013 Türkçe - İngilizce
Rica ederim,
sizin de herşey gönlünüze göre olsun. İyi akşamlar.
sizin de herşey gönlünüze göre olsun. İyi akşamlar.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Verileri eşleştirerek birleştirme
- Konbuyu başlatan Kanakinli
- Başlangıç tarihi
Başka bir sorun
Dentex merhabalar yine ben. Aynı konuya ilişkin başka bir sorunum daha var. Senin kodları kullanarak çözmek istedim. Çürümeye yüz tutmuş bilgilerimle değişkenlerin isimlerini falan değiştim ama beceremedim. s3.Cells(s, "b") = rs("ALTI.6T") satırına gelip Run time error - Öğe, istenen ad veya sıra sayısı ile ilişkili derleme içinde bulunamıyor hatası veriyor.
Yapamak istediğim iki ayrı sayfadaki notları,(6. ve 7. sınıf ve 8.sınıf) tek sayfaya toplamak. Üçüncü sayfada olmalarının şartıda her iki sayfada da bulunmak.
Dentex merhabalar yine ben. Aynı konuya ilişkin başka bir sorunum daha var. Senin kodları kullanarak çözmek istedim. Çürümeye yüz tutmuş bilgilerimle değişkenlerin isimlerini falan değiştim ama beceremedim. s3.Cells(s, "b") = rs("ALTI.6T") satırına gelip Run time error - Öğe, istenen ad veya sıra sayısı ile ilişkili derleme içinde bulunamıyor hatası veriyor.
Yapamak istediğim iki ayrı sayfadaki notları,(6. ve 7. sınıf ve 8.sınıf) tek sayfaya toplamak. Üçüncü sayfada olmalarının şartıda her iki sayfada da bulunmak.
Son düzenleme:
Merhaba Arkadaşlar,
herkes gibi benimde yardımlarınıza ihtiyacım var daha önce oluşturulmuş bir makroyu çalışır hale getirmeye çalışıyorum fakat bir türlü beceremedim
öğe istenen ad veya sıra sırası ile ilişkili derleme içinde bulunamıyor hatasını veriyor tarih satırında acilen yardımcı olabilir misiniz ? şimdiden teşekkürler. 
----kodlarım aşağıdaki gibi----
Sub Düğme3_Tıklat()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim objCmd As ADODB.Command
Dim i, j As Integer
i = 0
j = 0
Sayfa4.Range("A2", "U65000").ClearContents
Set conn = New ADODB.Connection
connstr = "Driver={SQL Server}; Server=-------; Database=---; User ID=reporter; Pwd=----;"
conn.Open connstr
Set objCmd = New ADODB.Command
objCmd.ActiveConnection = conn
objCmd.CommandTimeout = 999999
objCmd.CommandType = 4
objCmd.CommandText = "DEPO_YENİ_AÇILAN_CARİLER"
objCmd.Parameters("@TARİH1") = CDate(Sayfa1.Cells(2, 4))
objCmd.Parameters("@TARİH2") = CDate(Sayfa1.Cells(3, 4))
Set rst = New ADODB.Recordset
rst.CursorType = adOpenStatic
Set rst.Source = objCmd
rst.Open
i = 2
j = 0
Do While Not rst.EOF
For j = 0 To rst.Fields.Count - 1
Sayfa4.Cells(i, j + 1) = rst(j)
Next
rst.MoveNext
i = i + 1
Loop
rst.Close
Set rst = Nothing
Set objCmd = Nothing
conn.Close
Set conn = Nothing
Sayfa4.Activate
End Sub
herkes gibi benimde yardımlarınıza ihtiyacım var daha önce oluşturulmuş bir makroyu çalışır hale getirmeye çalışıyorum fakat bir türlü beceremedim
öğe istenen ad veya sıra sırası ile ilişkili derleme içinde bulunamıyor hatasını veriyor tarih satırında acilen yardımcı olabilir misiniz ? şimdiden teşekkürler. ----kodlarım aşağıdaki gibi----
Sub Düğme3_Tıklat()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim objCmd As ADODB.Command
Dim i, j As Integer
i = 0
j = 0
Sayfa4.Range("A2", "U65000").ClearContents
Set conn = New ADODB.Connection
connstr = "Driver={SQL Server}; Server=-------; Database=---; User ID=reporter; Pwd=----;"
conn.Open connstr
Set objCmd = New ADODB.Command
objCmd.ActiveConnection = conn
objCmd.CommandTimeout = 999999
objCmd.CommandType = 4
objCmd.CommandText = "DEPO_YENİ_AÇILAN_CARİLER"
objCmd.Parameters("@TARİH1") = CDate(Sayfa1.Cells(2, 4))
objCmd.Parameters("@TARİH2") = CDate(Sayfa1.Cells(3, 4))
Set rst = New ADODB.Recordset
rst.CursorType = adOpenStatic
Set rst.Source = objCmd
rst.Open
i = 2
j = 0
Do While Not rst.EOF
For j = 0 To rst.Fields.Count - 1
Sayfa4.Cells(i, j + 1) = rst(j)
Next
rst.MoveNext
i = i + 1
Loop
rst.Close
Set rst = Nothing
Set objCmd = Nothing
conn.Close
Set conn = Nothing
Sayfa4.Activate
End Sub