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

Sayfanızın kod bölümüne uygulayıp deneyiniz. Sayfanız hesaplama yaptığında kod devreye girecektir. Option Explicit Private Sub Worksheet_Calculate() Dim Veri As Range, Alan As Range On Error GoTo Son Application.ScreenUpdating = False Application.EnableEvents =...

Satır aralarına gerekli açıklamaları ekledim. Option Explicit Sub Mesai_Tablolarini_Iceri_Aktar() Rem Bu bölümde makro içinde kullanacağımız değişkenleri tanımlıyoruz. Dim K1 As Workbook, S1 As Worksheet Dim K2 As Workbook, S2 As Worksheet, Zaman As Double Dim Yol As String...

Korhan Bey, Müsait olunca, Yukarıdaki kod demetinde yer alan kodlarda, "Burada bunu yaptırıyoruz." - "Buradan bunu çektiriyoruz" - "Burada şunu hedefliyoruz" gibi açıklama ekleyebilirseniz, bende denemelerimde araştırarak ve buna bakarak kendimi geliştirmek isterim.

Korhan Bey Günaydın. Ellerinize sağlık on numara beş yıldız çalışıyor... Çok teşekkür ederim. Allah razı olsun hepinizden..

Bu da dosyaları arkaplanda açarak verileri aktarıyor. Sorunlu hücreleri olduğu gibi aktarmaktadır. Bu sebeple kontrol etmenizde fayda var. Option Explicit Sub Mesai_Tablolarini_Iceri_Aktar() Dim K1 As Workbook, S1 As Worksheet Dim K2 As Workbook, S2 As Worksheet, Zaman As Double...

Ben IMEX eklenmiş kod bloğunu paylaşıyorum. Bir ara denersiniz. Option Explicit Sub Mesai_Tablolarini_Iceri_Aktar() Dim S1 As Worksheet, S2 As Worksheet, Baglanti As Object, Kayit_Seti As Object Dim Sorgu As String, Yol As String, Dosya As String Dim Veri As Range, Alan As Range...

Korhan hocam zahmet verdim sizlere hakkınızı helal edin lütfen. Kodu denedim ama ne hikmetse ( ' ) olan bazı dosyadan alıyor, bazısından almıyor. Merak ettiğim yukarıdaki cevabınız da kodun içinde var demişsiniz. Aşağıdaki bu kodu düzeltebilirsek, sizin aylık için hazırlamış olduğunuz dosya...

Biraz uğraştırdı ama aşağıdaki kod ile o sorunda bende düzeldi görünüyor. Sizde deneyip sonucu bildirirseniz sevinirim. Option Explicit Sub Mesai_Tablolarini_Iceri_Aktar() Dim S1 As Worksheet, S2 As Worksheet, Baglanti As Object, Kayit_Seti As Object Dim Sorgu As String, Yol As...

Korhan Bey, Son bir durum kalmış. Ekteki dosya da, "Hakettiği Mesai Saati" alanı doldurulurken yazının başına ( ' ) tek tırnak atıyor. Bundan dolayı da sizin yazdığınız kod ile data çektirdiğimde böyle başlayanları alamıyor. Bunu nasıl düzeltiriz? Bunun içinde ki kod, girilen her verinin...

Deneyiniz. Option Explicit Sub Mesai_Tablolarini_Iceri_Aktar() Dim Baglanti As Object, Kayit_Seti As Object Dim Sorgu As String, Yol As String, Dosya As String Dim Veri As Range, Alan As Range, Ay As String, Zaman As Double Zaman = Timer...

Merhaba, Önereceğim kendiniz uygulayın. Böylece makro terimlerine adım atmış olursunuz. Dosyanızı açın ve ALT+F11 tuşlarına basarak kod editörünü (VBA) açın. Aşağıdaki kodu açılan pencerenin sol tarafında bulunan resimdeki bölüme uygulayın. Option Explicit Private Sub Workbook_Open()...

Merhaba, Gizle kodlarını aşağıdakilerle değiştirerek deneyiniz. Sub Gizle() 'ilave Dim i As Long, c As Range, t As Double Application.ScreenUpdating = False Cells.EntireRow.Hidden = False For i = 4 To 129 Step 2 'Cells(Rows.Count, "A").End(xlUp).Row t =...

Merhaba Ömer beyin vermiş olduğu aşağıdaki kodlarla birleştirilmiş hücrelerde sonuç alamıyorum. Sub Yazdir() Dim sat As Long Call Gizle 'ilave sat = [A:K].Find("*", , , , xlByRows, xlPrevious).Row ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & sat...

Merhaba, Deneyiniz. Sub Yazdir() Dim sat As Long Call Gizle 'ilave sat = [A:K].Find("*", , , , xlByRows, xlPrevious).Row ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & sat ActiveSheet.PrintOut Cells.EntireRow.Hidden = False 'ilave End Sub Sub Gizle() 'ilave...

Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range Range("1:4").EntireRow.Hidden = True Range("100:" & Rows.Count).EntireRow.Hidden = True For Each Veri In Range("G5:G99") If Veri.Value = "" Then If Alan Is Nothing Then Set Alan...

Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range For Each Veri In Range("G5:G99") If Veri.Value = "" Then If Alan Is Nothing Then Set Alan = Veri Else Set Alan = Union(Alan, Veri) End If...

Merhaba, Aşağıdaki kodu deneyiniz. Sub kod() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim alan As Range Dim a As Integer Dim b As Byte Set alan = Range("A2") Rows("3:1003").Hidden = True For a = 3 To 1003 For b = 1 To 20 If Cells(a, b) <> ""...

Teşekkür ederim Çalıştı Ancak tablom 12 satırdan başlıyor. üstünü gizlememesi gerek

Merhaba, Deneyiniz. Sub gizle() Dim c As Range, Adr As String, k As Range Application.ScreenUpdating = False Call goster Set c = [C:C].Find(0, , xlValues, xlWhole) If Not c Is Nothing Then Adr = c.Address Do If k Is Nothing Then...

Merhaba Kendi Kullanış olduğum Satır Ve Sütün Gizleme Kodlarını İhtiyacınıza Göre Uyarlayabilirsiniz. Umarın işinizi Görür 'Satır Gizlemek için Private Sub ToggleButton1_Click() Dim Veri As Range, Alan As Range For Each Veri In Range("I13:I40") If Veri.Value = 0 Then...