Merhaba Arkadaşlar,
Elimde aşağıdki gibi bir kod var. Bu kod belirtilen hücrelerdeki değeri alt alta sıralıyor. Bu kodu; belirtilen hücrelerin adresi ile listeleyecek şekilde nasıl düzenleyebilirim. Bu konuda tecrübesizim.
yani a1 hücresinde c:\documen.....\belgelerim\[Kitap1]Sayfa3!$B$2 şeklinde getirmesini istiyorum. çünki b2 değişken.
Sub Hucre_List()
Dim Sh As Worksheet
Dim i As Integer
For Each Sh In Worksheets
If Not Sh.Name = ActiveSheet.Name Then
i = i + 1
Cells(i, 1) = Sh.Range("B2")
Cells(i, 2) = Sh.Range("F18")
Cells(i, 3) = Sh.Range("F38")
Cells(i, 4) = Sh.Range("E40")
Cells(i, 5) = Sh.Range("E43")
End If
Next
End Sub
Elimde aşağıdki gibi bir kod var. Bu kod belirtilen hücrelerdeki değeri alt alta sıralıyor. Bu kodu; belirtilen hücrelerin adresi ile listeleyecek şekilde nasıl düzenleyebilirim. Bu konuda tecrübesizim.
yani a1 hücresinde c:\documen.....\belgelerim\[Kitap1]Sayfa3!$B$2 şeklinde getirmesini istiyorum. çünki b2 değişken.
Sub Hucre_List()
Dim Sh As Worksheet
Dim i As Integer
For Each Sh In Worksheets
If Not Sh.Name = ActiveSheet.Name Then
i = i + 1
Cells(i, 1) = Sh.Range("B2")
Cells(i, 2) = Sh.Range("F18")
Cells(i, 3) = Sh.Range("F38")
Cells(i, 4) = Sh.Range("E40")
Cells(i, 5) = Sh.Range("E43")
End If
Next
End Sub