Excell sayfa1 deki buton ile sayfa 2 ye veri kaydetme

[kkaplan]

Merhabalar,

Sayfa1 adında bir tasarım sayfam var burada kullanıcının görmesi gereken alanlar var ve burada veri güncelleme butonu var. Veriyi güncellemek için tıklandığında Sayfa2 ye çekmesini istiyorum. Veri çekme işlemini felan yaptım lakin veriyi butonun bulunduğu sayfaya çekebiliyorum. Özetlemek gerekirse Sayfa1 deki butona tıkladığımda accesteki kayıtları Sayfa2 ye çekilsin. Anlatabildim mi bilmiyorum ama yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[cems]

www.filebig.net adresine bir örnek yükler ve verilen linki buraya eklerseniz sorunuz daha iyi anlaşılabilir.

 

[kkaplan]

Merhaba,

https://disk.yandex.com.tr/client/disk?idApp=client&dialog=slider&idDialog=/disk/resim.png
Burada yer alan görselde Adress güncelle butonuna basıldığında Veri adındaki sayfaya verileri Accesten çekip kayıt yapacak. Butonun bulunduğu sayfaya veriyi çektirebiliyorum ama diğer sayfaya A1 hücresinden itibaren veriyi çekemedim bir türlü. Yardımınızı bekliyorum. Şimdiden teşekkür ederim.

Private Sub CommandButton1_Click()
On Error Resume Next

Dim baglanti As DAO.Database
Dim kayitlar As DAO.Recordset

Set baglanti = OpenDatabase("C:\Users\KAPLAN\Desktop\Excell Çalışma\DB.accdb")
Set kayitlar = baglanti.OpenRecordset("SELECT ttno, adress, adet FROM tablo", dbOpenSnapshot)
Range("Sayfa2!A2").CopyFromRecordset kayitlar

Application.Cursor = xlDefault
Application.StatusBar = "Adres doluluk oranı güncellendi."

kayitlar.Close
Set kayitlar = Nothing
baglanti.Close
Set baglanti = Nothing
End Sub


Kodlarım bunlar kırmızı ile belirttiğim alanda mı bir yanlışım var acaba yada daha farklı bir durum bulamadım bir türlü :/


http://www.filebig.net/files/aEyaGwbFJ2 Dosyayı söylediğiniz adrese yükledim.

www.filebig.net adresine bir örnek yükler ve verilen linki buraya eklerseniz sorunuz daha iyi anlaşılabilir.

 

[ÖmerBey]

Merhaba,
Makro kullanırken herhangi bir sayfa ismi belirtmezseniz aktif sayfa üzerinde işlem yapılır.
Başka bir sayfadan veri almak veya başka sayfaya veri göndermek için sayfa ismini belirtmeniz; başka bir çalışma kitabındaysa, kitap ismini de belirtmeniz gerekir.
Sheets("Veri").Range("O2").CopyFromRecordset kayitlar şeklinde deneyiniz...

 

[kkaplan]

Merhaba,
Makro kullanırken herhangi bir sayfa ismi belirtmezseniz aktif sayfa üzerinde işlem yapılır.
Başka bir sayfadan veri almak veya başka sayfaya veri göndermek için sayfa ismini belirtmeniz; başka bir çalışma kitabındaysa, kitap ismini de belirtmeniz gerekir.
Sheets("Veri").Range("O2").CopyFromRecordset kayitlar şeklinde deneyiniz...

Hocam çok teşekkür ederim 2 gündür aradım bu kodu neredeyse Elinize sağlık oldu formül

 

[ÖmerBey]

Rica ederim,
Bir dahaki sefere aklınızda olsun: Küçük bir örnek dosya ile sorunuzu desteklerseniz, yapmak istediğiniz daha çabuk anlaşılacağından daha hızlı ve doğru cevaplar alabilirsiniz.
İyi çalışmalar diliyorum...

 

[kkaplan]

Rica ederim,
Bir dahaki sefere aklınızda olsun: Küçük bir örnek dosya ile sorunuzu desteklerseniz, yapmak istediğiniz daha çabuk anlaşılacağından daha hızlı ve doğru cevaplar alabilirsiniz.
İyi çalışmalar diliyorum...

Peki hocam, aklımda. Tekrardan teşekkürler