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

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

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