Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: formül sonucuna bağlı satır gizleme  (Okunma sayısı 8364 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yupyuxexes

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: şevket ozek
  • Doğum Yılınız: 1985
  • İl / İlçe: aydın /nazilli
formül sonucuna bağlı satır gizleme
« : 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

Çevrimdışı muharrem66

  • Excelce Onbaşı
  • **
  • İleti: 10
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Muharrem
  • Doğum Yılınız: 1987
  • İl / İlçe: ANTALYA
  • Mesleğiniz: Muhasebe
  • Office Versiyonunuz: 2010
Ynt: formül sonucuna bağlı satır gizleme
« Yanıtla #1 : 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
=EĞER(EYOKSA("Google Arama");"Bi_bahah_hele";"")

Çevrimdışı muharrem66

  • Excelce Onbaşı
  • **
  • İleti: 10
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Muharrem
  • Doğum Yılınız: 1987
  • İl / İlçe: ANTALYA
  • Mesleğiniz: Muhasebe
  • Office Versiyonunuz: 2010
Ynt: formül sonucuna bağlı satır gizleme
« Yanıtla #2 : 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
=EĞER(EYOKSA("Google Arama");"Bi_bahah_hele";"")