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

Necati bey çok teşekkür ederim

Tekrar merhaba, "E12" hücresinin gizlenmesi veya gösterilmesi makroya olumsuz bir etkisi yok. Ama yine de değiştirip istediğiniz hücreye alabilirsiniz. Makro içindeki alan belirttiğimiz yerlerin (Range) başına sayfa tanımını (syf) eklersek başka sayfalardan da erişilebilir. Çıktı sayısını...

Sub MUTABAKAT_YAZDIR() On Error Resume Next Dim SayfaAdedi As Integer Set syf = Sheets("MUTABAKAT TUTANAĞI") syf.PageSetup.PrintArea = "" ss1 = syf.Cells(Rows.Count, 2).End(xlUp).Row If ss1 < 13 Then ss1 = 13 syf.Rows("13:" & ss1).EntireRow.Hidden = False...

Neceti bey çok teşekkür ederim. Bu kodu aynı şekilde yazdır için uyarladım. Fakat yine ön izleme yapıyor. Bunu yazdır için nasıl yaparız? Sub MUTABAKAT_YAZDIR() On Error Resume Next Set syf = Sheets("MUTABAKAT TUTANAĞI") syf.PageSetup.PrintArea = "" ss1 =...

Sub MUTABAKAT_ÖN_İZLE() On Error Resume Next Set syf = Sheets("MUTABAKAT TUTANAĞI") syf.PageSetup.PrintArea = "" ss1 = syf.Cells(Rows.Count, 2).End(xlUp).Row If ss1 < 13 Then ss1 = 13 syf.Rows("13:" & ss1).EntireRow.Hidden = False ss2 =...

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...