DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Değerli Arkadaşlar, iyi çalışmalar dileğiyle; Şu ifadeyi makroya çevirebilir miyiz.?
Eğer; C sütunu 22 piksel (dahil) den küçükse
ve hemde
A11, sıfırdan küçükse
11.nci satırı gizlesin..
If Columns("E:E").ColumnWidth =< 2.43 And Cells(11, 1).Value < 0 Then
Rows(11).Hidden = True
End If
şekliyle çalıştırmaya çalıştım, olmadı. Hatta boş bir dosyada düğmeye atayarak da denedim, yine çalışmadı..Acaba nerede hata yapıyorum..If Columns("C:C").ColumnWidth <= 22 And Cells(11, 1).Value < 0 Then
Rows(11).Hidden = True
End If
Sn.Huseyinkis..! Yukarıdaki kodu, Yani;
şekliyle çalıştırmaya çalıştım, olmadı. Hatta boş bir dosyada düğmeye atayarak da denedim, yine çalışmadı..Acaba nerede hata yapıyorum..
Sub gizle()
Set s1 = Sheets("Sayfa1")
If s1.Columns("C:C").ColumnWidth <= 2.43 And s1.Cells(11, 1).Value < 0 Then
s1.Rows(11).Hidden = True
End If
End Sub