Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yupyuxexes - 27 Mart 2015, 00:42:33

Başlık: formül sonucuna bağlı satır gizleme
Gönderen: yupyuxexes - 27 Mart 2015, 00:42:33

arkadaşlar excelde bir sorunum var, yardim edebilecek bi uzmana ihtiyacim var.excel sayfasinda B sütunundaki hücreler formul sonucuna göre değer aliyor. ve bu hücrelerin değerleri sıfir o satir gizlensin istiyorum. bilgisi olan var mi dir?? "filtre kullan" yada "satiri seç, sağ tikla gizle" demeyin lütfen. herkes aynı şeyi söylüyor

Başlık: Ynt: formül sonucuna bağlı satır gizleme
Gönderen: muharrem66 - 30 Mart 2015, 16:56:25

KOD BÖLÜMÜNE YAPIŞTIR DENE Bİ BAKALIM


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Integer
Dim lc As Integer

On Error Resume Next
lc = Range("B" & Rows.Count).End(xlUp).Row
For a = 1 To lc
If Cells(a, 3) <> 0 Then
Rows(a).Hidden = False
Else
Rows(a).Hidden = True
End If
Next a
End Sub

Sub gosterr()
Rows.Hidden = False
End Sub

Başlık: Ynt: formül sonucuna bağlı satır gizleme
Gönderen: muharrem66 - 30 Mart 2015, 17:03:47

BUDA B HÜCRESİNDE BELİRLİ BİR ARALIGADA VEREBİLİRSİN


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim formul As Range
For Each formul In ActiveSheet.Range("B1:B999").SpecialCells(xlCellTypeFormulas)
If formul = "" Or formul = 0 Then
formul.EntireRow.Hidden = True
Else: formul.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub