Kapakta diğer sekmelerden veri çağırma

[dursuni]

Merhaba arkadaşlar ekte bir excelde veri girişi yapmam lazım. En ön sayfada da verileri tablo olarak göstermem lazım. Yani 400-500 tane girmeyecek olsam normal formülden yaparım ama çok olunca formülü tek tek yapmak sıkıntı oluyor. Bunu makro ile kapakta göstermek için yardımcı olur musunuz?

 

[asi_kral]

Merhaba
İl'in Kayseri olduğunu nereden bileceğiz_?

 

[dursuni]

Kayseri sabit değer, hepsinde Kayseri olmak zorunda.

 

[asi_kral]

Kayseri sabit değer, hepsinde Kayseri olmak zorunda.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sayfalardan_veri()
'Konu       :   Sayfalardan Veri Çekme
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim s1 As Worksheet, s2 As Worksheet
Dim asi As Long, kral As Long
Application.ScreenUpdating = False
Set s1 = Sheets("KAPAK")
s1.Range("A3:K" & Rows.Count).ClearContents
kral = 3
For asi = 1 To Sheets.Count
Set s2 = Sheets(asi)
If s2.Name <> "KAPAK" Then
s1.Cells(kral, "A") = s2.Range("C2"): s1.Cells(kral, "B") = s2.Range("C2")
s1.Cells(kral, "C") = s2.Range("C7"): s1.Cells(kral, "D") = s2.Range("C35")
s1.Cells(kral, "E") = s2.Range("C9"): s1.Cells(kral, "F") = "Kayseri"
s1.Cells(kral, "G") = s2.Range("C23"): s1.Cells(kral, "H") = s2.Range("C25")
s1.Cells(kral, "I") = s2.Range("C27"): s1.Cells(kral, "J") = s2.Range("C29")
s1.Cells(kral, "K") = s2.Range("C31"): kral = kral + 1
End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.