Excel üzerinden update

[kaya41]

Öncelikle herkese merhaba.

Tablo adı ornek olan ieno ve deger isimlerinde iki başlığı olan bir tablo.

Yapmak istediğim şu; makroyu çalıştırdığımda aktif olan satırın A sütununda bulunan ieno ile tablodaki ieno eşleşen kaydın değer alanı aktif olan satırın B sütunundaki değer ile güncellensin.

Elimde bir örnek yok. Mümkünse benim için kılavuz olacak.

Hatta mümkünse şu daha önemli.

A sütununda ieno eşleşen kaydın;

Aktif olan C sütunundaki değer Tablodaki x başlık alanına,
Aktif olan D sütunundaki değer Tablodaki y Başlık alanına,
Aktif olan E sütunundaki değer Tablodaki z Başlık alanıyla güncellensin.

Gibi bir örnek var mı? mümkün mü?

Şimdiden yardımlarınız için teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Cevabımın altındaki İMZA bölümünde yer alan açıklamaları okuyarak
bir örnek belge hazırlamanızı ve onun üzerinden destek istemenizi öneririm.
Böylece daha hızlı ve net çözüme ulaşacağınızı düşünüyorum.
.

 

[kaya41]

Herkese tekrar merhaba.

Ömer bey haklısınız lakin server bağlantıları vs. olmadığından çok ta sağlıklı bir örnek olmayacaktı.
yinede çözümü paylaşıyorum, umarım birilerine faydası olur.

Bir konu hakkında yardım isteyeceğim.
örnek kodda a2 hücresindeki iş emri numarasına göre b2 hücresindeki durum kodunu güncelliyor.

Benim şimdi yapmak istediğim kodu çalıştırdığımda a2 hücresinden başlayarak durum kodlarını aşağı doğru yani a3 teki iş emri no a3 teki durum kodu, a4 teki iş emri no a4 teki durum kodu şeklinde güncellemeye devam etsin, ta ki a sütununda boş gelene kadar.

Umarım yardımcı olursunuz.

 

[kaya41]

Kullandığım kod şu an çalışıyor.
umarım faydası olur.

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