Rapor sayfasında formüller çalışmıyor.(Dosya eklendi.)

[İsmail Küçükşengün]

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.

 

[İsmail Küçükşengün]

Sayın excel üstatları;
:?
(excel gizli iken) aktarılan verilerde Formüllerin sonucu göstermemesi nedendir?

Hücrelerde formüller kaybolmuyor. Sadece sonucu göstermiyor. :?

 

[İsmail Küçükşengün]

:yardim:

 

[İsmail Küçükşengün]

:kafa:

 

[İsmail Küçükşengün]

Yardım veya önerisi olan bir forumdaş yok mudur?.....

 

[danersin]

sn. kucuksengun, soruyu sorduktan ve 4 defada yardım diye mesaj atmanıza rağmen en ufak bi ses gelmiyorsa %99 olasılıkla sorunuz anlaşılmamıştır. bu durumda sizin için özel bilgileri kaldırıp dosyadan dosyanın kendisini ekleyebilirsiniz buraya. aşağıdakini bir deneyin ilk aklıma gelen.. yada hesaplar sayfasından aktardığınız değerlerin excel tarafından nümerik algılandığını test edin.

Private Sub CommandButton6_Click()
Application.Calculate
Sheets("rapor").PrintOut
End Sub

 

[İsmail Küçükşengün]

Teşekkür ederim.

Dosyamın küçültülmüş halini ekte sunuyorum.

İlgilenenler şimdiden şükranlarımı sunarım..

 

[abdi]

Sayın kucuksengun
aşağıdaki kodu modüle yapıştırıp deneyin

Sub metinbiçiminisayıyap()
Dim i As Integer

Set a = Sayfa5
For i = 2 To 23
a.Cells(i, 6).Value = a.Cells(i, 6).Value * 1

Next i


End Sub

ister inanın ister inanmayın ama kendim için bile doğru dürüst döngü kuramazken sizin için yaptım ne anlamda denediğinizi bilemiyorum deneyip sonucu bildirin eğer kodu userform üzerinden çalıştıracaksanız
çalışmasını istediğiniz butona atayacaksınız

metinbiçiminisayıyap şeklinde yazıp deneyeceksiniz
sizin yukarıdaki koda göre
şöyle oluyor

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
metinbiçiminisayıyap
ListBox1.RowSource = "rapor!a2:g" & s1.[a65536].End(3).Row
End Sub

 

[İsmail Küçükşengün]

Sayın Abdi;

İlgine gerçekten çok teşekkür ederim. Sizin yaptığınız faiz hesabının da bulunduğu ve üzerinde 1,5 aydır çalıştığım bu çalışma, yukarıdaki sorun nedeniyle eksik kalıyor.

Yukarıdaki kod da işe yaramadı. Hata veriyor.

Eklediğim dosyayı indirip incelerseniz, formüllerin olduğu hücreler sayı olarak biçimlendirildi.

Sorun excel gizli iken ortaya çıkıyor.

Yine de teşekkürler, iyi akşamlar dilerim.

 

[danersin]

Hesaplar sayfasında F sütununda hücre biçimlendirme olarak #.##0,00 "YTL" kullanmışsınız. Bu hataya yol açıyor. O sütunun hücre biçimlendirmesini sayı yaparsanız sorun ortadan kalkar.

Tavsiye :Çalışmanız bittiğinde içi boş olan tüm prosedürleri silin.

 

[abdi]

Yeni dosya

Sayın kucuksengun,
ekli dosyayı kontol ediniz
ben aynen dediklerimi yaptım bi acaiplik göremedim
bide baskı önizleme yaptım. herşey normal
Sayın Danersin'e katılıyorum hücre biçimini aynen söylediği gibi düzelttim
bide uygulamalarınızda YTL şeklinde yazmasını istediğiniz hücreleri bu şekilde biçimlendirmek yerine microsoftun sitesinden

Excel 2000/XP/2003 Eklentisi: Excel için Yeni Türk Lirası (YTL) hücre biçimi desteği
eklentisini bilgisayarınıza kurun
bu şekilde sanırım para birimi kutusunda ytl çıkacaktır ve biçimlendirmeyide halletmiş olursunuz.
eklenti için link
http://www.microsoft.com/downloads/details.aspx?familyid=C1B09489-0AEF-4F0A-AEE8-6C3191B809A0&displaylang=tr

Çalışmalarınızda Başarılar Dilerim.

 

[İsmail Küçükşengün]

Sayın Danersin;

Hesaplar ve raporlar sayfasındaki rakamları bulunduğu tüm hücreleri "sayı" olarak
biçimlendirdim. Sonuç değişmedi. İlginize teşekkür.
"Tavsiye :Çalışmanız bittiğinde içi boş olan tüm prosedürleri silin. " Acemiliğime verin ne demek istediğinizi anlayamadım.

Sayın Abdi.

Sizin örneğinizde excel açıkken sonuçları gösteriyor. Fakat sadece formdan çalışıldığında form da ortadan kalkıyor ve önizlemeyi göstermiyor.Sonra excel.den çıkılamıyor.Örneğinizdeki kodu çalışmama kopyaladığımda ise "metin biçiminisayıyap." kısmı hata veriyor.

Bir sorunum için sizleri bu kadar meşgul ettiğim için çok mahcubum. Özürlerimi sunuyorum. Fakat bu arada da :kafa: !.....

 

[abdi]

Sayın kucuksengun,
yukarıdaki dosyada sizin eksik gördüğünüz işlemleri düzelttim
dosyayı yeniden gönderdim.
indirip kontrol ediniz.
çalışmalarınızda başarılar dilerim.

 

[İsmail Küçükşengün]

Sayın abdi;

İlginiz ve emeğiniz beni gerçekten duygulandırıyor.

Fakat, yeni giriş yapıp, başka kişinin raporunu aldığımızda, alttaki formüllerden bazıları yine sonuç göstermiyor.Sonuç o kadar sizin de uğraşmanıza rağmen

Ben bu işin sonucunu artık bırakıyorum. Sizleri de yordum. Artık başka form ve çalışma sayfasıyla yeni deneme yapmaya çalışacağım.

Selam ve sevgilerle.....