If else makro kodu isteği

[cavanoos]

Merhaba arkadaşlar;

Alttaki makro kodumda veritabanına bağlanıp kayıt atıyorum.Elimdeki veri 2000 satırdan oluşuyor.Veritabanına ise 2000 kayıt atamıyor.300 gibi kayıt atabiliyor.Her çalışmasında.

Yapmak istediğim şey,alttaki makro kodu çalıştıktan sonra,300 kayıt içeri atıldıktan sonra,301.satırda eğer satır dolu ise bir başka makroyu çalıştırmak istiyorum.Eğer boş ise kayıt edildi uyarısı versin mesela.

Ya da 2000 satırı bir kerede atacağım bir makro kodu mevcut mu?Nasıl yapılabilir?

Yardım edebilir misiniz ?

Sub kaydet()
Dim cn As ADODB.Connection
Dim cm As ADODB.Command
Set cn = New ADODB.Connection
Set cm = New ADODB.Command
cn.connectionstring = "Driver={SQL Server};Server=teanserver;Database=open;Uid=uuuu;p wd=cava"
cn.Open
If cn.State = adStateOpen Then
cm.ActiveConnection = cn
cm.CommandType = adCmdText
cm.CommandText = ""
For i = 4 To 300
If Range("L" + Trim(Str(i))).Value2 <> "" Then
cm.CommandText = cm.CommandText + Range("L" + Trim(Str(i))).Value2 + ";"
Else
Exit For
End If
Next
cm.Execute
Set cn = Nothing
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
MsgBox ("Kayıt edildi.")
End Sub

 

[peleryn]

Merhabalar;

For i = 4 To 300

Yukardaki satırı For i = 4 To 2000 olarak değiştirince istediğiniz işlemi yapabilirsiniz sanıyorum

 

[cavanoos]

Peleryn;

O şekilde yapınca olmuyor.Sql hata veriyor.Ama 300 satır alıyor.

 

[sedatm]

Merhaba

Bende bir Kod İstiyorum

Şöyle ki;

Eğer Genel Döküm Sayfasındaki C6 ile C10 Arasındaki herhangi bir satırda yazan Eşittir TL İse TL Adlı sayfayı kopyala ve otomatik olarak C6 da yazan ne ise o isimle dosya aç

Eğer Genel Döküm Sayfasındaki C6 ile C10 Arasındaki herhangi bir satırda yazan Eşittir USD İse USD Adlı sayfayı kopyala ve otomatik olarak C6 da yazan ne ise o isimle dosya aç