Offset hatası

[bedersu]

Arkadaşlar,
Ekli dosyada aşağıdaki kodlarla satır gizle-göster yapıyorum.
veri girişi sayfasında G9 hücresi boş olduğunda Offset(3, 0)
G12 hücresini işaret etmesi gerekirken G14 hücresini işaret ediyor.
Diğer hiçbir hücrede hata yok.Bunun sebebi ne olabilir?

Private Sub ToggleButton1_Click()

For Each verigzl In Sheets("veri girişi").Range("G9:G39")
If ToggleButton1.Value = True And verigzl = "" Then


'a = verigzl.Address
'b = Sheets("HARCIRAH").Range(a).Offset(3, 0).Address
Sheets("HARCIRAH").Range(a).Offset(3, 0).EntireRow.Hidden = True
Sheets("görevlendirme").Range(a).Offset(3, 0).EntireRow.Hidden = True

End If

Next

For Each verigst In Sheets("veri girişi").Range("G9:G39")
If ToggleButton1.Value = False And verigst = "" Then


'a = verigst.Address
'b = Sheets("HARCIRAH").Range(a).Offset(3, 0).Address
Sheets("HARCIRAH").Range(a).Offset(3, 0).EntireRow.Hidden = False
Sheets("görevlendirme").Range(a).Offset(3, 0).EntireRow.Hidden = False
End If

Next


End Sub

 

[Levent Menteşoğlu]

Sn bedersu

Uzun süredir sizi forumda göremiyorduk. Tekrar aramıza dönmenizden dolayı çok mutlu olduğumu belirtmek isterim. Katkılarınızın devamı dilerim.


Sorunuza gelirsem, ilk satırdaki aralık dosyanıza G8:G39 olarak tanımlanmış. Sanıyorum G9:G39 olmalı.

 

[bedersu]

Sayın Levent Menteşoğlu,
Denemelerim esnasında G8 yapmıştım,düzeltmeyi unutmuşum,özür dilerim.
Normalde G9 olarak düzeltilince de aynı hatayı veriyor. G12 seçilmesi gerekirken G14 seçiliyor.Bir alt hücrede ve sonrasında bu hata yok.Mesela G10 için offset(3,0) G13 seçiliyor.Hata sadece G9 hücresinde meydana geliyor.Anlayamadım bir türlü.

 

[Levent Menteşoğlu]

Sorun harcırah sayfasındaki G9 hücresinin birleştirilmiş hücre içinde olmasından kaynaklanıyor. Offset komutu, birleştirilmiş hücrenin son hücresi olan G11 adresini dikkate alarak işlem yapıyor.

 

[bedersu]

Sayın Levent Menteşoğlu,
Evet haklısınız.Peki diğer iki hücrede yani G10 ve G11 de aynı şekilde birleştirilmiş şekilde. Buralarda neden hata yok? Ayrıca bunu nasıl çözebiliriz?

 

[Levent Menteşoğlu]

G10 hücresindede aynı hatayı yapıyor. G11 zaten son hücre olduğundan doğru işlem gerçekleşiyor. Kodu aşağıdaki gibi değiştirirseniz sanıyorum istediğiniz sonucu alabilirsiniz.

Private Sub ToggleButton1_Click()
For Each verigzl In Sheets("veri girişi").Range("G9:G39")
If ToggleButton1.Value = True And verigzl = "" Then

a = verigzl.Offset(3, 0).Address

Sheets("HARCIRAH").Range(a).EntireRow.Hidden = True
Sheets("görevlendirme").Range(a).EntireRow.Hidden = True

End If

Next

For Each verigst In Sheets("veri girişi").Range("G9:G39")
If ToggleButton1.Value = False And verigst = "" Then


a = verigst.Offset(3, 0).Address
Sheets("HARCIRAH").Range(a).EntireRow.Hidden = False
Sheets("görevlendirme").Range(a).EntireRow.Hidden = False
End If

Next
End Sub

 

[bedersu]

HARCIRAH G12 gizlenmiyor

 

[Levent Menteşoğlu]

Dosyayı ekliyorum.

 

[bedersu]

Teşekkür ederim Sayın Levent Menteşoğlu :tongue: