kalan bakiyeyi sayfadan çekme

[wolwaren]

merhaba arkadaşlar ana sayfam da firma isimleri var örnek abc firmasının yanına kalan bakiye alanı var abc firmasının sayfasındaki kalan alanındaki son işlem yapan hücredeki değeri ana sayfadaki kalan kısmına getirmem mümkün mü?

 

[Emir Hüseyin Çoban]

. . .

Firma sayfalarında Ürün sütunu (A) dolu olmalıdır.

Sub kod_bir()
On Error Resume Next

Dim sa As Worksheet
Set sa = Sheets("anasayfa")
bir = [a65536].End(3).Row

For i = 2 To bir
aa = Cells(i, 1)
uc = Sheets(aa).[a65536].End(3).Row
sa.Cells(i, 2) = Sheets(aa).Cells(uc, 7)

Next i
End Sub

. . .

 

[wolwaren]

hüseyin bey yapmak istediğim şu abc firmasında en son hücredeki kalan bakiye anasayfa da abc hücresinin karşısına gelsin.
verdiğiniz makroyu modüle yapıştırdım ama çalışmadı

 

[Emir Hüseyin Çoban]

. . .

Ben bir hata göremiyorum.
Eki inceleyiniz.

. . .

 

[wolwaren]

çok sağolun

ben de verdiğiniz kodu modüle yapıştırdım ama beceremedim demek ki.
gayet güzel çalışıyor ellerinize sağlık.