Hücre dolu ise sorgu çalıştırsın değilse çalışmasın

[cavanoos]

Merhaba arkadaşlar;

Aşağıdaki makro kodumda veritabanına bağlantı yapıp 2 adet sorguyu içeriye kayıt atıyorum.

Excelde oluşturulmuş sayısı devamlı değişen sql sorguları var.Hepsi A sütununda.A1 sütunundaki sorgu için bu makroyu çalıştırabilirim.İçeriye kayıt atar.

Fakat 2.satıra geçtiğimde tekrar bir makro kodu yazmam gerekir.

Şöyle bir şey yapabilir miyiz ?

1-İlk satırı kaydettikten sonra,eğer 2.satırda değer varsa kayıt devam etsin.Eğer yoksa kayıt bitti desin.
2-Eğer 2.satırda sorgu varsa cm.CommandText = "Insert .....);" & Range("A1").Value & "" bu satırdaki A1 hücresi bir artmalı ki 2.satırdaki sorguyu almalı.

Yardımcı olabilir misiniz ?



Sub silah()
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=tean;Database=open;Uid=uuuuu;pwd=cava"
cn.Open
If cn.State = adStateOpen Then
cm.ActiveConnection = cn
cm.CommandType = adCmdText
cm.CommandText = "Insert .....);" & Range("A1").Value & ""
cm.Execute
Set cn = Nothing
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
MsgBox ("Kayıt edildi.")
End Sub