Her alt sayfaya yazılan verileri anasayfaya otomatik olarak getirme

[SmaRT_AleCK]

sana excel ile ilgili bir şey sormak istiyorum
excel de bu mümkün mü?

şöyle bir excel sayfası düşünün

1 tane anasayfa
ve alt sayfalar

Sayfa1(Anasayfa),Sayfa2(A Firması),Sayfa3(B Firması) .....

her alt sayfaya yazılan verileri anasayfaya otomatik olarak getirme
yani ben B firması sayfasına veriler giricem anasayfa da bu veriler otomatik olarak çıkacak

yardımcı olursanız sevinirim

örnek dosya ekte yer almaktadır

tşk

 

[mesuttasar]

Örnek dosya eklerseniz yardım etmek daha kolay olur.

 

[Necdet]

Merhaba,

Sana excel ile ilgili bir soru sormak istiyorum'u eleştirmekle birlikte, aşağıdaki kodları ThisWorkbook'un sayfasına kopyalayıp dener misiniz?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Ana Sayfa" Then Exit Sub
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    Set s1 = Sheets("Ana Sayfa")
    SonSatır = s1.[A65536].End(3).Row + 1
    Sat = Target.Row
    Range("A" & Sat & ":B" & Sat).Copy s1.Cells(SonSatır, "C")
    s1.Cells(SonSatır, "A") = SonSatır - 1
    s1.Cells(SonSatır, "B") = ActiveSheet.Name
Son:
End Sub

 

[SmaRT_AleCK]

pardon ordaki cümleyi bi arakdaşa yazmıştım yanlışlıkla onuda kopyalamışım
kurua bakmayın

 

[SmaRT_AleCK]

Necdet_Yesertener :
çok teşekkür ederim verdiğin kod ve dosya için
tam istediğim buydu
çok işime yarayacak
tekrar teşekkürler

bi sorum olacak
ben bir sütündaki veriyi değiştirdiğimde
anasayfada var olan kayıtı değiştirmeden
yeni bir satır ekliyor yani mükerrer kayıt oluyor
bunu nasıl engelleyebilirim
ve kayıt sildiğimde anasayfadan da silinme işlemini nasıl yapabilirim

tekrar teşekkürler

 

[SmaRT_AleCK]

yardım edebilecek kimse yok mu?

 

[woyzeck]

NECDET bey, ellerinize sağlık....

 

[Skorpiyon]

Sayın SmaRT AleCK,

Dosyanızdan küçük bir örnek ekleyin, direkt onun üzerinde yapmaya çalışalım.