İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhabalar;
Private Sub CommandButton8_Click()
Sheets("hesaplar").Select
Set s1 = Sheets("rapor")
s1.[a2:g23].ClearContents
Sheets("hesaplar").Select
bastar = DateSerial(Year(ComboBox2), Month(ComboBox2), 1)
bittar = DateSerial(Year(ComboBox3), Month(ComboBox3) + 1, 1) - 1
ad = ComboBox1.Value
For a = 3 To [c65536].End(3).Row
If ad = "HEPSİ" Then GoTo 10
If Cells(a, "c") = ad And Cells(a, "c") >= bastar And Cells(a, "b") <= bittar Then
c = c + 1
For b = 1 To 7
s1.Cells(c + 1, b) = Cells(a, b).Value
Next
End If
GoTo 20
10 If Cells(a, "b") >= bastar And Cells(a, "b") <= bittar Then
c = c + 1
For b = 1 To 7
s1.Cells(c + 1, b) = Cells(a, b).Value
Next
End If
20 Next
If s1.[a2] = 0 Then
MsgBox "UYGUN VERİ BULUNAMADI"
Exit Sub
End If
ListBox1.RowSource = "rapor!a2:g" & s1.[a65536].End(3).Row
End Sub
Private Sub CommandButton6_Click()
Sheets("rapor").PrintOut
End Sub
Kodu ile rapor sayfasına verileri aktarıyorum.
Fakat Excel gizli,userformla aktarıldığında belirli hücrelerdeki formüller sonuçları göstermiyor.
Aynı kod ve form başka çalışmada (exceli gizli olmayan) veya elle girildiğinde formüllü hücreler sonuçları gösteriyor.
Sorun nasıl çözülebilir.
Ayrıntılı açıklama ekteki dosyada sayfa 1.dedir.
Şimdiden teşekkürlerimi sunuyorum.
Private Sub CommandButton8_Click()
Sheets("hesaplar").Select
Set s1 = Sheets("rapor")
s1.[a2:g23].ClearContents
Sheets("hesaplar").Select
bastar = DateSerial(Year(ComboBox2), Month(ComboBox2), 1)
bittar = DateSerial(Year(ComboBox3), Month(ComboBox3) + 1, 1) - 1
ad = ComboBox1.Value
For a = 3 To [c65536].End(3).Row
If ad = "HEPSİ" Then GoTo 10
If Cells(a, "c") = ad And Cells(a, "c") >= bastar And Cells(a, "b") <= bittar Then
c = c + 1
For b = 1 To 7
s1.Cells(c + 1, b) = Cells(a, b).Value
Next
End If
GoTo 20
10 If Cells(a, "b") >= bastar And Cells(a, "b") <= bittar Then
c = c + 1
For b = 1 To 7
s1.Cells(c + 1, b) = Cells(a, b).Value
Next
End If
20 Next
If s1.[a2] = 0 Then
MsgBox "UYGUN VERİ BULUNAMADI"
Exit Sub
End If
ListBox1.RowSource = "rapor!a2:g" & s1.[a65536].End(3).Row
End Sub
Private Sub CommandButton6_Click()
Sheets("rapor").PrintOut
End Sub
Kodu ile rapor sayfasına verileri aktarıyorum.
Fakat Excel gizli,userformla aktarıldığında belirli hücrelerdeki formüller sonuçları göstermiyor.
Aynı kod ve form başka çalışmada (exceli gizli olmayan) veya elle girildiğinde formüllü hücreler sonuçları gösteriyor.
Sorun nasıl çözülebilir.
Ayrıntılı açıklama ekteki dosyada sayfa 1.dedir.
Şimdiden teşekkürlerimi sunuyorum.