Sorgu için arama sonuçları: EntireRow.Hidden+union

Bir Korhan Ayhan klasiği, çok teşekkürler. İşlem tamam.

Kullandığınız formül önemli.. Yinede alternatif olarak aşağıdaki kodu deneyebilirsiniz. Option Explicit Sub Zero_Or_Blanks_Cells_Hidden_Row() Dim My_Sheet As Worksheet, Rng As Range, My_Area As Range Application.ScreenUpdating = False For Each My_Sheet In...

Merhaba, Veri girişi yaptığınız sayfanızın kod bölümüne uygulayıp deneyiniz. Bu sayfada A9:A39 aralığına veri girişi yaptıkça kod çalışacaktır. Gerekiyorsa kod içinde geçen sayfa isimlerini düzenlersiniz.. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As...

Deneyiniz. Private Sub Worksheet_Change(ByVal Target As Range) Dim Sh As Worksheet, My_Area As Range, Rng As Range, Blank_Cells As Range If Intersect(Target, Range("F10:F40")) Is Nothing Then Exit Sub Application.ScreenUpdating = False For Each Sh In Sheets(Array("HARCIRAH"...

Korhan bey çok teşekkür ederim. Ellerinize sağlık. Kod muhteşem çalışıyor

Deneyiniz. Private Sub Worksheet_Change(ByVal Target As Range) Dim Sh As Worksheet, Rng As Range, Blank_Cells As Range If Intersect(Target, Range("F10:F40")) Is Nothing Then Exit Sub Application.ScreenUpdating = False For Each Sh In Sheets(Array("HARCIRAH", "OLUR"...

Korhan Bey Muhteşem oldu Teşekkür ederimmmmm :):):)

İlk mesajınızda tek sayfa içeren dosya paylaşınca bende başka bir excelden verileri aldığınızı düşünmüştüm. Aşağıdaki kodu deneyiniz. Packing_List sayfasının kod bölümüne uygulayınız. E14:E33 arasında değişiklik yaptığınızda çalışması gerekir. Option Explicit Private Sub...

Korhan Bey ilk çalışan kod gibi kapat aç yapınca çalışıyor bu kod

Hata veren kod bloğunu silip yerine aşağıdaki kod bloğunu deneyiniz. Private Sub Workbook_Activate() Dim Rng As Range, My_Area As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...

Korhan bey Ekteki görseldeki hatayı verdi bu şekilde

Böyle deneyiniz. Eğer yine sorun olursa başka bir yöntem deneriz. Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Dim Rng As Range, My_Area As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False...

Korhan bey, Kodu aşağıdaki şekilde Workbook a eklediğimde " For Each Rng In Sheets("Konşimento_Talimatı").Range("H36:H58") " şeklinde Debug veriyor Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Dim Rng As Range, My_Area As Range Application.ScreenUpdating = False...

Korhan Bey teşekkür ederim fakat aşağıdaki hatayı verdi, dosyaya kodu eklediğim halini de ekliyorum Runtime - 9 Subscript out of range Debug """ Sheets("Konsimento_Talimati").Rows("36:58").EntireRow.Hidden = False """

Merhaba, Veriler formülle dış kaynaktan geldiği için dosya açılışında bu işlemi yapmanız daha uygun görünüyor. Kodu ThisWorkbook bölümüne uygulayınız. Option Explicit Private Sub Workbook_Open() Dim Rng As Range, My_Area As Range Application.ScreenUpdating = False...

Yazdıklarınızı kodlar yapıyor. Yalnız ben kodları Modul için yazmıştım yani buton ile çalıştırmanız gerekir. Siz sayfa aktif olduğunda çalışmasını istiyorsanız aşağıdaki kodları Teklif sayfasının kod bölümüne kopyalayınız. Kodlar sayfa aktif olduğunda çalışır. Kopyalamadan sonra farklı sayfaya...

Merhaba, Deneyiniz. Sub Test() Dim S1 As Worksheet, Wf As WorksheetFunction Dim s_gizle As String, son_sut As String, i As Long, c As Range Set S1 = Sheets("Malzeme Girişi") Set Wf = WorksheetFunction Application.ScreenUpdating = False...

Deneyiniz. Option Explicit Sub Rows_Hide() Dim X As Long, Y As Byte, Alan As Range, Say As Byte Application.ScreenUpdating = False Cells.Rows.EntireRow.Hidden = False For X = 9 To Cells(Rows.Count, 4).End(3).Row For Y = 4 To 7 If Cells(X...

Deneyiniz. Option Explicit Sub Rows_Hide() Dim X As Long, Alan As Range Application.ScreenUpdating = False Cells.Rows.EntireRow.Hidden = False For X = 8 To Cells(Rows.Count, 4).End(3).Row If Cells(X, 4) = "" Then If Alan Is Nothing Then...

Merhaba, Deneyiniz. Private Sub ToggleButton1_Click() Dim i As Integer, c As Range Application.ScreenUpdating = False Range("A6:A100").EntireRow.Hidden = False With ToggleButton1 If .Value Then For i = 6 To 100 If Cells(i, "A") <> 1...