listbox'da column saklama ve makroyla word dosyası açma

[enderturk]

merhaba :hey:

son günlerde bir arkadaşım için cari takip programı hazırlıyorum. hazırlarken çoğu problemi hallettim ama iki tane aşamadığım problem var :kafa: :kafa: , bana yardımcı olursanız sevinirim;

Sorun1: makroyla bazı .doc dosyaları olusturdum ama bunlar oluşturulduktan sonra dosya açılmıyor. bazı kodlar denedim sonuç olumsuz çıktı. Bu işlemdeki amacım oluşturduğum .doc dosyasını açıp ön izleme şeklinde kontrol edip word'un menülerinden komutları tıklayarak (bu kısma makro etki etmeyecek, elle yazdırılacak) yazdırmak.

sorun2: listbox'umda kolonların gösterilmesini kontrol eden bir kod yazdım ne kadar uğraştımsa neden yanlış çalıştığını bulamadım.
sorun şu ki bazı column değerlerini gizleyen checkboxlar tıklandığında kendinden sonraki kolonu gizliyor. mesela tarih görünür olduğunda işlem gizleniyor (işlem gizli veya görünür olsa da)
aşağıda bu kontrolü gerçekleştirdiğim kod var, ayrıca belirteyim yukarıdaki bahsettiğm checkboxların herbirinde click olayında call liste kodu var

Sub liste()
Sheets("Bakiye").Select
Columns("A:J").EntireColumn.AutoFit
Columns("A:J").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("D1") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Cells(1, 1).Select

q1 = Cells(1, 1).ColumnWidth * 7
q2 = Cells(1, 4).ColumnWidth * 7
q3 = Cells(1, 5).ColumnWidth * 7
q4 = Cells(1, 6).ColumnWidth * 7
q5 = Cells(1, 7).ColumnWidth * 7
q6 = Cells(1, 8).ColumnWidth * 7
q7 = Cells(1, 9).ColumnWidth * 11
q8 = Cells(1, 10).ColumnWidth * 11

If CheckBox7.Value = False Then
q1 = 0
Else
If q1 < 39 Then
q1 = 39
End If
End If
If CheckBox2.Value = False Then
q2 = 0
Else
If q2 < 39 Then
q2 = 39
End If
End If
If CheckBox3.Value = False Then
q3 = 0
Else
If q3 < 39 Then
q3 = 39
End If
End If
If CheckBox4.Value = False Then
q4 = 0
Else
If q4 < 39 Then
q4 = 39
End If
End If
If CheckBox5.Value = False Then
q5 = 0
Else
If q5 < 39 Then
q5 = 39
End If
End If
If CheckBox6.Value = False Then
q6 = 0
Else
If q6 < 39 Then
q6 = 39
End If
End If

ListBox1.ColumnCount = 8
q = q1 & ";" & q2 & ";" & q3 & ";" & q4 & ";" & q5 & ";" & q6 & ";" & q7 & ";" & q8
ListBox1.ColumnWidths = q
End Sub


:dua: yardımlarınızı bekliyorum

 

[enderturk]

lütfen yardım edin!!!

 

[enderturk]

ilk sorunun cevabını buldum

http://www.excel.web.tr/viewtopic.php?t=6524&highlight=word+dosyas%FD+a%E7mak

baya bir işe yaradı ancak uyarlamam baya zor oldu
tabi makro yazmaya başlayalı daha 1 ay oldu o da sizlerin sayesinde

ikinci soru hakkında hala yanıt bekliyorum . sorunun nedeni ne olabilir?

daha iyi anlayabilmeniz için ekte dosyayı dönderiyorum
program çalıştıktan sonra Cari İşlemde Ekstre sekmesinde listboxum var
comboboxdan bir isim seçtikten sonra listele dedikten sonra checkboxları tıklayın ne demek istediğimi anlayacaksınız

görünüşte herşey düzgün görünüyor ama tarih sütunu işlem sütununu gizliyor
aynı olayı bazen diğer sütunlar için de yapıyor (bir önceki sütun sonraki sütunu gizliyor)
bunun sebebi ne olabilir?

yardımlarınızı bekliyorum

 

[enderturk]

tekrar merhaba

günler geçti ama baya bir uğraşmama rağmen listbox hakkındaki problemi çözemedim.

bana en azından problemin kaynağını bulabilecek bir arkadaş yok mu.

problemin kaynağını bilsem çozeceğim olayı ama bir türlü bulamıyorum


bu arada en son yoptığım değişiklerle birlikte ekliyorum.

 

[Levent Menteşoğlu]

Peki listbox taki probleminiz nedir? bunuda açıklarmısınız.

 

[Jezus]

Galiba sorun haloldu arkadasim

Merhaba ben biraz ugrastim tarih sorunu haloldu birde sen dene.




Selamlar
======
Jezus

 

[Jezus]

Merhaba Levent hocam affiniza siginarak bu arkadasa ben cevap vermek istedim
sizden ogrendiklerimi uygulamak ve birazda kendimi test etmek istedim.



Selamlar
=======
Jezus

 

[enderturk]

merhaba

sayın leventm ve Jezus
kusura bakmayın bir süredir internete giremedim
baya olmuş cevap göndereli

sayın jezus cevabınıza çok teşekkür ederim ama gönderdiğiniz dosyada hala aynı problem var sanırım yanlış yere bakıyoruz.

sorun şu ki Cari İşlemler'de Extre adında bir sekmem var ve bu sekmede bir listboxum var
bu listboxun yanındaki checkboxlar yardımıyla listbox içindeki sütunların uzunluğu (columnwidth) 0 olarak atanabilmekte yani saklanabilmekte.
ancak bütün kutular işaretliyken hepsi görünür olması gerekirken Tarih sütunu İşlem sütununun üzerine geliyor yani işlem sütunu görünmez hale geliyor. Tarih checkbox'unu kapattığında ise işlem görünür oluyor.
aynı sorun çeşitli checkbox kombinasyonlarında da oluşuyor.
baya bir araştırdım ama sorunun kaynağını bulamadım. herşey düzgün görünüyor. Acaba checkboxlar tıklandığında bir nedenle sonraki checkbox değeri arkaplanda false olarak mı ayarlanıyor diye düşündüm ama debug yapınca checbox değerine bakıyorum ve herşey normal görünüyor.

yukarıdaki problem her seferinde her kombinasyonda olmasa da diğer sütunlar için de oluşuyor

gerçi kasap olan arkadaşıma dosyayı teslim ettim ve onun için bu o kadar da önemli bir sorun değil ama benim içim rahat etmeyecek, nerde hata yaptığımı bilmem gerekiyor. umarım bu konuda beni anlayışla karşılarsınız.

 

[enderturk]

tekrar merhaba

daha açıklayıcı olabilmek için size resimleri gönderiyorum

 

[enderturk]

pardon ekleme olmadı herhalde
tekrar gönderiyorum

 

[Jezus]

Ekteki dosyaya bir bakin benim pc,de hepsi gorunuyor birde siz deneyin





Selamlar
======
Jezus