Döngü oluşturma.

[kaya41]

Merhaba.
Döngü kelimesi ile doğru terimi mi kullandım bilmiyorum.

Aşağıda belirtmiş olduğum kod ile a2 hücresindeki iş emrine göre b2 hücresindeki değere güncelliyorum. Kod gayet başarılı çalışıyor.

Benim yapmak istediğim, sadece a2 - b2 ile sınırlı kalmasın,
a2 den başlayarak dolu olan son a2 satırına kadar devam etsin.

örn.
a3 dolu ise aynı kodu a3 b3 içinde çalıştırmalı.

özetle;

a2 deki iş emrine göre b2 deki durumu
a3 deki iş emrine göre b3 deki durumu
a4 deki iş emrine göre b4 deki durumu
a5 deki iş emrine göre b5 deki durumu

güncellemek istiyorum.

yardımcı olan arkadaşlara şimdiden teşekkür ediyorum.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



Dim i As Integer
Dim cnn As New ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={Microsoft ODBC for Oracle};UID= xxxxx ;PWD= xxxxxx ;SERVER= xxxxxx "
cnn.Open


Set sh = ThisWorkbook.Worksheets("Sayfa4")
         
ISEMRI = sh.Range("a2")
DURUM = sh.Range("b2")



    cnn.Execute "UPDATE F4801 SET WASRST='" & DURUM & "' WHERE WADOCO='" & ISEMRI & "'"
 

cnn.Close
Set cnn = Nothing


End Sub

 

[Emir Hüseyin Çoban]

. . .

Öncelikle deneme veritabınınız varsa orada test edin.

Kodlar buton ile çalışır, yine çift tıklama ile çalıştırmak isterseniz sub kod başlığını değiştirirsiniz.

Sub kod()
    
    Dim cnn As New ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "DRIVER={Microsoft ODBC for Oracle};UID= xxxxx ;PWD= xxxxxx ;SERVER= xxxxxx "
    cnn.Open
    
    
    Set sh = ThisWorkbook.Worksheets("Sayfa4")

    For i = 2 To sh.Cells(Rows.Count, "A").End(3).Row
        
        ISEMRI = sh.Cells(i, "A")
        DURUM = sh.Cells(i, "B")
        
        cnn.Execute "UPDATE F4801 SET WASRST='" & DURUM & "' WHERE WADOCO='" & ISEMRI & "'"
        
        ISEMRI = Empty
        DURUM = Empty
    
    Next i
    cnn.Close
    Set cnn = Nothing
    i = Empty
    Set sh = Nothing
    
End Sub

. . .

 

[kaya41]

Teşekkür.

Hızlı geri dönüşünüz için teşekkür ederim.
Denedim sonuç başaralı.
Ellerinize ve zihninize sağlık.