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