Özet sayfadiki verileri ilgili sayfalara aktarma

[akmes]

Merhaba;

Ekteki excel sayfasından da anlaşılacağı gibi, Genel sayfasına kayıt yapıldıkça genel sayfasındaki A sütunundaki isimlere göre açılan ilgili sayfaların en son boş satırına kayıt atcak bir formül veya kod varmıdır.Teşekkür ederim.

 

[İhsan Tank]

formül mü istiyorsunuz kod mu_?
formül ile isterseniz dosyanız belli bir süre sonra kasılmaya başlar
kod ile isterseniz biraz daha kullanışlı olur.
ve bir takım sorular
genel sayfasınındaki veriler silinecek mi yoksa sabit devamlı giriş mi yapacaksınız_?
devamlı giriş yapacaksanız en son boş satır'ı anlayamadım zaten standart olarak sıralı gidecektir.

 

[akmes]

formül mü istiyorsunuz kod mu_?
formül ile isterseniz dosyanız belli bir süre sonra kasılmaya başlar
kod ile isterseniz biraz daha kullanışlı olur.
ve bir takım sorular
genel sayfasınındaki veriler silinecek mi yoksa sabit devamlı giriş mi yapacaksınız_?
devamlı giriş yapacaksanız en son boş satır'ı anlayamadım zaten standart olarak sıralı gidecektir.

Üstadım kod olması uygundur.Genel sayfasındaki veriler silinmeyecek hergün yeni bir kayıt girilecek.Bu kayıtlar girildikçe ilgili sayfalardaki en son boş satıra otomatik kayıt etmesini istiyorum.Yani İzmir,Bursa ve Ankara sayfalarına otomatik olarak en alt boş satıra kaydedecek ilk verileri silinmemiş olması gerekiyor.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f119/verileri-lgili-sayfalara-formul-makro-ile-daoytylmasy-t20271.html


.

 

[akmes]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f119/verileri-lgili-sayfalara-formul-makro-ile-daoytylmasy-t20271.html


.

İlginiz için teşekkürler.İnceledim uyarlamaya çalıştım veri tabanı hatası veriyor.

 

[İhsan Tank]

İlginiz için teşekkürler.İnceledim uyarlamaya çalıştım veri tabanı hatası veriyor.

merhaba
kitabınızın kod kısmında bulunan Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Genel" Then
Dim ts, kaplan
ts = MsgBox(ActiveSheet.Name & " Verilerini Aktarıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
kaplan = 3
Application.DisplayAlerts = False
Range("A3:D65536").ClearContents
For ts = 3 To Sheets("Genel").Cells(65536, "A").End(xlUp).Row
If Sheets("Genel").Cells(ts, "A") = ActiveSheet.Name Then
Cells(kaplan, "A") = Sheets("Genel").Cells(ts, "B")
Cells(kaplan, "B") = Sheets("Genel").Cells(ts, "C")
Cells(kaplan, "C") = Sheets("Genel").Cells(ts, "D")
Cells(kaplan, "D") = Sheets("Genel").Cells(ts, "E")
kaplan = kaplan + 1
End If
Next
Application.DisplayAlerts = True
MsgBox ActiveSheet.Name & " Verilerini Aktardım", vbInformation, "Bitiş"
End If
End Sub

bu kodu kopyalayın. sayfalar arasında gezin seçtiğiniz sayfanın verilerini otomatik aktarsın

 

[akmes]

merhaba
kitabınızın kod kısmında bulunan Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Genel" Then
Dim ts, kaplan
ts = MsgBox(ActiveSheet.Name & " Verilerini Aktarıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
kaplan = 3
Application.DisplayAlerts = False
Range("A3:D65536").ClearContents
For ts = 3 To Sheets("Genel").Cells(65536, "A").End(xlUp).Row
If Sheets("Genel").Cells(ts, "A") = ActiveSheet.Name Then
Cells(kaplan, "A") = Sheets("Genel").Cells(ts, "B")
Cells(kaplan, "B") = Sheets("Genel").Cells(ts, "C")
Cells(kaplan, "C") = Sheets("Genel").Cells(ts, "D")
Cells(kaplan, "D") = Sheets("Genel").Cells(ts, "E")
kaplan = kaplan + 1
End If
Next
Application.DisplayAlerts = True
MsgBox ActiveSheet.Name & " Verilerini Aktardım", vbInformation, "Bitiş"
End If
End Sub

bu kodu kopyalayın. sayfalar arasında gezin seçtiğiniz sayfanın verilerini otomatik aktarsın

Allah razı olsun tam istediğim buydu.Çok teşekkür ederim.Emeğinize sağlık.

 

[İhsan Tank]

Allah razı olsun tam istediğim buydu.Çok teşekkür ederim.Emeğinize sağlık.

rica ederim
Syn : Yurttaş Hocam'ada Teşekkür Ederim
:yazici:

 

[akmes]

rica ederim
Syn : Yurttaş Hocam'ada Teşekkür Ederim
:yazici:

Üstadım affınıza sığınarak kullanımın daha kolay olması için, dosya açıldığında otomatik olarak Ankara,Bursa ve İzmir sayfalarına aktarım yaptırabilirmiyiz.

 

[İhsan Tank]

Üstadım affınıza sığınarak kullanımın daha kolay olması için, dosya açıldığında otomatik olarak Ankara,Bursa ve İzmir sayfalarına aktarım yaptırabilirmiyiz.

bunu yapalım da bir sıkıntı var sadece bu kadar mı sayfa olacak yoksa artacak mı_?
artacaksa tavsiye etmem ama artmayacaksa yapayım hemen

 

[akmes]

bunu yapalım da bir sıkıntı var sadece bu kadar mı sayfa olacak yoksa artacak mı_?
artacaksa tavsiye etmem ama artmayacaksa yapayım hemen

Üstadım 3 ila 4 il daha ben ekleyebilirim sorun olurmu?