DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
Dim j As Long
j = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If Target.Value = "" Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To j
If Not Cells(i, "A") Like "Toplam*" Then Rows(i).EntireRow.Hidden = True
Next i
i = Target.Row + 1
Do While Cells(i, "A") > "" Or Cells(i, "A") Like "Toplam *"
Rows(i).EntireRow.Hidden = False
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
merhaba Necdet bey
maalesef yine olmadı. nerede yanlış yapıyorum acaba
sayfa1 üzerinde sağ tıklayıp kod görüntüle>kodları yapıştır> kaydet
necdetbey bana da aşağıdaki konuda yardımcı olabilirmisiniz,
http://www.excel.web.tr/f48/karma-synyf-olu-turma-t105807.html
merhabalar vermiş olduğunuz linkten uygulama yaptım ancak başarılı olmadı. siz örneği uygulayıp gönderir misiniz
sorunu hala çözemedim
Neyi çözemediniz onu anlamadım.
Sayfanın üzerinde sağ tuş tıklayın kod görüntüle deyin. Sağ tarafta bulunan büyük beyaz yere Hocamın verdiği kodu kopyalayın ve deneyin.