sütunların gizlenmesi

[alipinar]

Merhaba arkadaşlar.
Yaklaşık 85 civarında sütundan oluşan bir veri tabanım var. Bunların içinden bazı sütunları yazdırmak istiyorum. Yazdırmak istediğim hep aynı sütunlar (Örneğin 1,2,3,4,5,6,12,13,19,25 vb.) Bunu macro ile yapabilir miyim? Sütundaki değere göre gizleme yapma şansım yok. Yardımlarınız için teşekkür ederim.

 

[Seyit Tiken]

Yazdırma Alanı > Göster Makrosu > Yazdırma Makrosu > Gizle Makrosu
Böyle bir şey mi istiyorsunuz?

 

[alipinar]

Sayın Tiken ilginize teşekkür ederim. Galiba tam olarak anlatamadım.
Çiftlik için hayvan takip proğramı hazırlıyorum.Veri tabanı olarak veri adlı sayfayı kullanıyorum. Bu sayfada her bir satır bir hayvana ait bilgiler var. Bu bilgiler dediğim gibi yaklaşık 80-85 sütun civarında. Bu şekilde yaklaşık olarak 300-500 civarında satır olacak.
İstediğim işetme dökümü çıkarmak istediğimde bu sütunlardan belli sütunları yazdırmak istiyorum. (Bunu başka sayfaya formül ile yapabilirim ama makro ile yapmaya çalışıyorum.) Örneğin yazdırma butonuna basınca mesala A,B,C,D, K,L,M,AA,AG gibi sütunları yazdırmak istiyorum.
Bunu yapabilir miyim? Mümkün mü? Teşekür ederim.

 

[alipinar]

Merhaba arkadaşlar.
Arkadaşlar yukarıdaki sorunum çözülebilir mi? İşin içinden çıkamadım. İyi geceler. :kafa: :yardim: :yardim:

 

[Korhan Ayhan]

Selamlar,

Yazdırma işlemi nasıl olacak biraz daha detay verebilirmisiniz. Mesela A sütunundaki bilgiler yazdırdıktan sonramı B sütunundaki bilgileri yazdıracak yoksa belirttiğiniz sütunlarn dışındakileri gizleyip sadece kalanlarımı yazdıracak. Yada küçük bir örnek dosya ekleyin üzerinde çalışalım.

 

[alipinar]

Selamlar Üstad
Hepsi aynı anda yazılacak. Gereksiz sütunlar gizlendikten sonra geriye kalanlar aynıu anda yazılacak. Teşekkürler. Örnek dosyayı şu anda gönderemiyorum çünkü diğer bilgisayarda.

 

[Metin Karaağaç]

Dostum, Araçlar/ makro kaydet deyip,
yapmak istediklerini yapsan, sonra kaydı durdur desen, sonra formlardan bir düğme oluşturup, o düğmeye kaydettiğin makroyu atasan olur.

Ayrıca bu linkte resimli anlatım var:
http://www.excel.web.tr/viewtopic.php?t=4153

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu uygulayınız. (Sayfa yazdırma ayarlarınızı yaptığınızı varsaydım.)

Sub GİZLE_YAZDIR()
    Range("C:C,F:F,H:H").Select 'Buradaki sütunları artırabilirsiniz.
    Selection.EntireColumn.Hidden = True
    Range("A1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Gizlenen sütunlarıda tekrar görünür hale getirmek için aşağıdaki kodu uygulayın.

Sub SÜTUNLARI_GÖSTER()
    Range("C:C,F:F,H:H").Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub

 

[gecemavisi]

Sn. Cost Control;
Mesela Satırlarımızın
c3 d3 f3
c5 d5 f5 adlı iki satırımızın içindeki hücreler sıfırsa

ve bu kontrolü a1:f6 alanı içinde yapmak istiyorsam.

dediğim bu satırlardaki belirtilen hücrelerin içi sıfır olduğu için
nasıl bir makro yazmalıyım ki a1:f6 arası belirtilen sütunlardaki içi 0 olan satırlar gizlensin. Mesela 3,5 satırı gibi.

 

[GAYSERİLİ]

[vb:1:efbcfb7d4c]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each giz In Range("a1:f6").Cells
If giz.Value = 0 Then
giz.EntireColumn.Hidden = True
End If
Next giz
End Sub[/vb:1:efbcfb7d4c]

 

[gecemavisi]

Örnek Vercek olursam eğer ekte açıklanmıştır.

 

[Ali]

Sn gecemavisi, satırda verisi olmayan için

Aşağıdaki kodları uygulayın
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Integer
For i = 7 To 11
If IsEmpty(Cells(i, 2)) Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Sütunda verisi olmayan için

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To 6
If IsEmpty(Cells(7, i)) Then
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[GAYSERİLİ]

[vb:1:b23a50ae04]Sub satirgizle()
Dim i As Integer
For i = 7 To 11
If Sheets("Sheet1").Cells(i, 2).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("Sheet1").Rows(i).Hidden = True
End If
Next i
End Sub[/vb:1:b23a50ae04]

 

[gecemavisi]

Hocam, Mükemmel yalnız sütun işini de halledebilirsem mükemmel olacak.

 

[Ali]

Sütunda verisi olmayan için

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To 6
If IsEmpty(Cells(7, i)) Then
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Yukarıda yazmıştım ama gözünüzden kaçmış sanırım

 

[gecemavisi]

Hocam bi tanesiniz. sağolun. Kolay gelsin

 

[gecemavisi]

Bir problemim daha var. Burda bahsettim değerlerin içinde formmülü olanlarda var. Formül sonucu "" ya da 0 olanları saklamam gerektiinde nasıl bir ilave yapmam gerekli. Arkadaşlar. Teşekkür ediyorum.

 

[gecemavisi]

Sub satirgizle()
Dim i As Integer
For i = 7 To 11
If Sheets("Sheet1").Cells(i, 2).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("Sheet1").Rows(i).Hidden = True
End If
Next i
End Sub

bu formülde If Sheets("Sheet1").Cells(i, 2).Value <> "" Then
kısmındaki "" değerinin yanına 0 nasıl ekleyebilirim.
Yardımınız için sağolun

 

[Ali]

"" değerinin yanına 0 nasıl ekleyebilirim

Sıfır ve boş hücre varsa

If Sheets("Sheet1").Cells(i, 2).Value <> "" And Sheets("Sheet1").Cells(i, 2).Value = 0 Then

Sıfır yada boş hücre varsa

If Sheets("Sheet1").Cells(i, 2).Value <> "" Or Sheets("Sheet1").Cells(i, 2).Value = 0 Then

 

[gecemavisi]

Hocam, soruyu biraz değiştirip te şu halde sorsam.

1-Mesela a7 ile G 13 arasındaki alan da G7:G13 sütunundaki veri 0 ya da boşsa o satırı saklasın.Burdan Kastım, gene örnekte olduğu gibi, yalnız burda f sütununu kontrol edecek.

2-A7 ile G13 arasındaki alan içinde B13:G13 satırındaki verilerden hangisi boş veya 0 ise o sütunu gizlesin.

Yardımlarınız ve büyük ilginizden dolayı sizlere müteşekkirim. :yardim: :yardim: :yardim: