- Katılım
- 12 Ocak 2009
- Mesajlar
- 838
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 07-02-2024
Arkadaşlar iyi akşamlar.
Aşağıdaki kod ile ekte sunulan belgenin İcmal sayfasında bulunan Aktar butonu ile 1 den 8 numaralı sayfalara kadar olan sekmelerdeki A34, Y34,AD34, AI34 ve AN34 numaralı hücrelerindeki verileri B8 -F15 aralığına alıyorum. Ancak verileri almaya başlarken 8.sayfadan başlayıp 1.sayfada bitiriyor. Bu işlemi 1.sayfadan başlayıp 8. sayfada bitirmesini istiyorum.
İlgilenecek arkadaşlara teşekkür ederim.
Aşağıdaki kod ile ekte sunulan belgenin İcmal sayfasında bulunan Aktar butonu ile 1 den 8 numaralı sayfalara kadar olan sekmelerdeki A34, Y34,AD34, AI34 ve AN34 numaralı hücrelerindeki verileri B8 -F15 aralığına alıyorum. Ancak verileri almaya başlarken 8.sayfadan başlayıp 1.sayfada bitiriyor. Bu işlemi 1.sayfadan başlayıp 8. sayfada bitirmesini istiyorum.
İlgilenecek arkadaşlara teşekkür ederim.
Kod:
Private Sub CommandButton1_Click()
Dim i As Integer, s As Worksheet, toplam As Double
Set s = Sheets("İcmal")
For i = 1 To Sheets.Count
If CStr(Sheets(i).Name) = CStr(i - 6) Then
s.Range("b8").Value = Sheets(i).Range("a34").Value
s.Range("c8").Value = Sheets(i).Range("y34").Value
s.Range("d8").Value = Sheets(i).Range("ad34").Value
s.Range("e8").Value = Sheets(i).Range("aI34").Value
s.Range("f8").Value = Sheets(i).Range("aN34").Value
On Local Error Resume Next
toplam = toplam + s.Range("f8").Value
Err.Clear
If i = Sheets.Count Then Exit For
Rows("8:8").Insert Shift:=xlDown
End If
Next i
s.Range("e65536").End(3)(1, 2).Value = toplam
i = Empty: toplam = Empty: Set s = Nothing
End Sub
Ekli dosyalar
-
21.9 KB Görüntüleme: 8