Sütunlar arasını diğer sayfaya aktarma ve bazı sütun-satırları gizleme

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Giriş sayfasında Mahsup oluştur butonunu tıkladığımda,

Verigirişi sayfasında A ve J sütunları arasını kopyala-yapıştır ile olduğu gibi veya çalışma sayfasını taşı-kopyala ile olduğu gibi sayfayı Mahsup sayfasına aktarmalı.
Ancak D ve G sütunlarını gizlemeli.
Tutarı olmayan satırlarıda gizlemeli.

Yardım ve fikirlerinizi bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub MAHSUP_OLUŞTUR()
    Dim X As Long
 
    Application.ScreenUpdating = False
 
    Sheets("MAHSUP").Cells.EntireColumn.Hidden = False
    Sheets("MAHSUP").Cells.EntireRow.Hidden = False
    Sheets("VERİGİRİŞİ").Range("A:J").Copy Sheets("MAHSUP").Range("A1")
    Sheets("MAHSUP").Range("D:D,G:G").EntireColumn.Hidden = True
 
    For X = 4 To Sheets("MAHSUP").Range("A65536").End(3).Row
        If Sheets("MAHSUP").Cells(X, "J") = "" Then Sheets("MAHSUP").Rows(X).Hidden = True
    Next
 
    Sheets("GİRİŞ").Select
    Range("H6").Select 
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Emir Hüseyin Çoban]

Sy Korhan Hocam çok teşekkürler, tam istediğim gibi olmuş. :bravo:
Sorunsuz çalışıyor. Emeğinize sağlık. :mutlu:

Mahsup sayfasını oluşturunca A1 hücresine geliyor imleç. İşlemi bitirdikten sonra
Giriş sayfasına H6 hücresine gelmesini sağlayabilirmiyiz.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki koda istediğiniz ekleme yapılmıştır. Denermisiniz.

 

[Emir Hüseyin Çoban]

Sy Korhan Hocam, çok teşekkürler zaten sorunsuz çalışıyordu ama istediğim düzenlemeyide yapmışsınız. Harika olmuş.
Emeğinize ve ilginize çok teşekkürler.
İyi günler dilerim.