Makro ile veritabanı güncelleme

[arda41]

Merhaba Arkadaşlar,

Makro ile veritabanı güncellenmesi ile ilgili ekteki veritabanı dosyasında açıklamaya çalıştığım bir sorunum var.

Yardımcı olabilecek arkadaşlara şimdiden çok çok teşekkür ederim.


Herkese selamlar
Saygılarımla

 

[arda41]

Merhabalar,

Yardımcı olabilecek var mıdır acaba?

Saygılarımla
İyi akşamlar

 

[arda41]

Tekrar merhabalar,

Yapmak istediğimi forumda araştırdım ancak fazla örnek çalışma bulamadım.

Yardımcı olabilecek veya yol gösterebilecek (link, benzer örnek vb.) kimse yok mudur acaba?

Saygılarımla
İyi akşamlar

 

[Zeki Gürsoy]

Ekteki dosyaları kullanın.

[SIZE=2]Sub test()
    Dim wb As Workbook, r1 As Integer, r2 As Integer, i As Integer, f As Range
    
    Application.ScreenUpdating = False
    
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\Veritabanı.xlsx")
    
    Set f = wb.Sheets(1).[a1:a10000].Find( _
        Replace(ThisWorkbook.Name, ".xlsm", ""), lookat:=xlWhole)
        
    If Not f Is Nothing Then
        r1 = f.Row
    Else
        r1 = wb.Sheets(1).[a10000].End(3).Row + 1
    End If
    
    r2 = ThisWorkbook.Sheets(1).[a1000].End(3).Row
    
    For i = 2 To r2
        wb.Sheets(1).Cells(1, i) = ThisWorkbook.Sheets(1).Cells(i, "a")
        wb.Sheets(1).Cells(r1, 1) = Replace(ThisWorkbook.Name, ".xlsm", "")
        wb.Sheets(1).Cells(r1, i) = ThisWorkbook.Sheets(1).Cells(i, "b")
    Next
    
    wb.Close True
    Application.ScreenUpdating = True
End Sub[/SIZE]

 

[arda41]

Zeki Bey Merhabalar,

Başta elinize emeğinize sağlık, çok teşekkür ederim.

Kodu şu şekilde düzenleyebilmemiz mümkün müdür? Çalışma1 ikinci sefer açılıp mesela güncelleme yapılıp (sayı değişikliği, sütun ilavesi vb.) veritabanı dosyasına veri gönderildiğinde veritabanı dosyasında yeni bir Çalışma1 satırı açılıyor. Yeni bir satır açılmadan veritabanı dosyasındaki Çalışma1 satırının bulunup güncellenmesi olabilir mi?

Tekrar yardımınız için çok teşekkür eder, saygılarımı sunarım.

 

[Zeki Gürsoy]

Merhaba;

Önceki mesajımdaki dosya ekindeki "Çalışma1" ve "Çalışma2" isimli dosyaları güncelledim. Tekrar indirip deneyin.


.

 

[arda41]

Zeki Bey tekrar merhabalar,

Kod istediğim şekilde çalışmaktadır.

Yardımınıza tekrar çok teşekkür ederim. Elinize emeğinize sağlık.

Saygılarımla
İyi akşamlar