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"...
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"...
İ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...
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...
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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.