Sütun atlamalı çağırma

[clgnuza]

arkadaşlar 1. sayfamda gizli sütunlar var ve 2. sayfada bu sayfadan çağırma yapıyorum ama atlamalı çağırmasını yani gizli sütunları çağırmamasını istiyorum. biraz da acemiyim yapamadım yardım ederseniz sevinirim.

Örnek =Ü1!D15 =Ü1!F15 =Ü1!H15 bu şekilde sürmesini istiyorum ama formülü çekince ardışık sürüklüyor.

 

[uzmanamele]

Merhaba

Gizli sütunlar bir düzen içerisindeyse formül yazmak kolaydır.
Düzensiz gizli sütunlar varsa ekteki gibi bir yöntem uygulanabilir.

Sayfa1'deki gizli sütunları yok sayarak Sayfa2'ye formül yazmak için:

Sub formula1()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
y = 1
For i = 1 To s1.Range("a1").End(2).Column
If s1.Cells(1, i).EntireColumn.Hidden = False Then
hcol = i
s2.Cells(1, y).Formula = "=" & "sayfa1!" & "R1" & "C" & i
y = y + 1
End If
Next
End Sub

Sayfa1'deki gizli sütunları yok sayarak Sayfa3'e formül yazmak için:

Sub formula2()
Set s1 = Sheets("sayfa1")
Set s3 = Sheets("sayfa3")
y = 1
For i = 1 To s1.Range("a1").End(2).Column
If s1.Cells(1, i).EntireColumn.Hidden = False Then
hcol = s1.Cells(1, i).Address
s3.Cells(1, y + 10) = hcol
y = y + 1
End If
Next
End Sub