hücredeki değeri 2.sayfadaki hücreye al

[birol_mumcu]

merhaba; :hey:
benim ihtiyacım şu; :?
"veri tabanı" sayfamda merkez bankasından verialan kodlar var. bu kodlar hergün alt alta verileri sıralıyor.sıra A sutunundan I sutününa kadar.
benim istediğim verileri alındığı "I"sütunundaki enson kaydedilen hücredeki değer "hesaplar" sayfasındaki "c24" hücresine (=veritabanı!I20 gibi) yazdırmak. bilmem anlata bildim mi?
dosya ekte yardımlarınız için şimdiden teşekkürler :dua: :arkadas:

 

[Haluk]

Ekli dosyayı inceleyin...

 

[birol_mumcu]

Ekli dosyayı inceleyin...

sağol hocam :dua:
tam aradığım gibi bir formül (daha önce hiç kullanmadım):bravo:
bir ricam daha olsa...
aynı işlemi "verial" sayfasından makro kullanarak nasıl yaparım?
kolay gelsin

 

[Haluk]

Dim NoI As Long
Dim Sh1 As Worksheet, Sh2 As Worksheet
Set Sh1 = Sheets("veri tabanı")
Set Sh2 = Sheets("hesaplar")
NoI = Sh1.Range("I65536").End(xlUp).Row
Sh2.Range("C24") = Sh1.Range("I" & NoI)
Set Sh1 = Nothing
Set Sh2 = Nothing

 

[birol_mumcu]

günydın; :hey:
syn raider
aşağıdaki kodlar "veritabanı"sayfasında bir butona atanmış ve çalışıyor(bu kodlar syn M.Temel Korkmaz hocamızın calışmalarından alıntıdır)
Sub Doviz_Kur_Takibi()
Dim say As Integer
Set VA = Worksheets("VeriAl")
Set VT = Worksheets("Veritabani")
Application.ScreenUpdating = False
'Sayfa korumasını kaldırır
VA.Unprotect "M.TemelKorkmaz"
'Bağlan
VA.Range("A1").QueryTable.Refresh BackgroundQuery:=False
'Düzenle
VA.Range("A1:C2,A25:G55,A19:G24").ClearContents
VA.Range("A8:G9,A11:G18,A5:G6,A1:G2").Delete Shift:=xlUp
VA.Columns("A:B").Delete Shift:=xlToLeft
VA.Cells.Replace What:=",", Replacement:=""
VA.Cells.EntireColumn.AutoFit
'VeriTabanına_Gönder
say = WorksheetFunction.CountA(VT.Range("A3:A30000")) + 3
VT.Cells(say, "A") = Format(Now, "dd.mm.yy hh:mm")
VT.Cells(say, "B") = VA.Range("A3")
VT.Cells(say, "C") = VA.Range("B3")
VT.Cells(say, "D") = VA.Range("C3")
VT.Cells(say, "E") = VA.Range("D3")
VT.Cells(say, "F") = VA.Range("A4")
VT.Cells(say, "G") = VA.Range("B4")
VT.Cells(say, "H") = VA.Range("C4")
VT.Cells(say, "I") = VA.Range("D4")
'Sayfaya şifre koyarak korur
VA.Protect "M.TemelKorkmaz"
Application.ScreenUpdating = True
End Sub

sizin verdiğiniz kodları modüle ekledim "compile error modül 4"hatası verdi
"hesaplar" sayfasına ekledim "compile error sayfa18 (hesaplar) hatası verdi.
eğer "veri tabanı"sayfasına ekleyeceksem nasıl olacak ? ya da başka çözüm var mı? :dua:
kolay gelsin

 

[Haluk]

Gözüme çarpan;

Bahsettiğiniz kodlarda geçen sayfa isimleriyle, gönderdiğiniz dosyadaki isimler farklı. Belki o yüzdendir.

Benim kodları da boş bir module bir prosedur ekleyin;

Sub Test()
.....
...
..
End Sub

ve çalıştırın.

Bahsettiğiniz kodlarla entegrasyonu için bir şey diyemeyeceğim...

 

[birol_mumcu]

merhaba;
syn raider kodlarınızı aşağıdaki şekilde düzenledim ve "modül 4"e yerleştirdim. Ekli gönderdiğim dosya da boyut büyük olduğundan değer yapıştırarak yollamıştım.
aşağıda
"Set Sh1 = Sheets("Veritabani") ve Set Sh2 = Sheets("HESAPLAR")" sayfaların sonhali, "Sh2.Range("E18")" hücrenin son hali .
bu şekilde değişiklik yaptım ama çalıştıramadım.
yanlış mı yapıyorum acaba :? :?
Sub Test()
Dim NoI As Long
Dim Sh1 As Worksheet, Sh2 As Worksheet
Set Sh1 = Sheets("Veritabani")
Set Sh2 = Sheets("HESAPLAR")
NoI = Sh1.Range("I65536").End(xlUp).Row
Sh2.Range("E18") = Sh1.Range("I" & NoI)
Set Sh1 = Nothing
Set Sh2 = Nothing
End Sub

 

[Haluk]

Sayfa adları v.s. doğruysa, Test isimli proseduru çalıştırınca ne oluyor peki ?

 

[birol_mumcu]

Sayfa adları v.s. doğruysa, Test isimli proseduru çalıştırınca ne oluyor peki ?

E18 hücresine gelecek değer gelmiyor

 

[birol_mumcu]

hocam şimdi çözdüm :hey:
verdiğiniz kodları :dua: sayfa üzerinde bir buton oluşturarak yaptım :bravo:
bilginize, emeğinize ve ilginize sağlık