Hata Mesajı

O

oerbas

Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Sevgili Arkadaşlar;

TextBox'tan çalışma sayfasına veri aktarırken hata oluşuyor. Açıklamak gerekirse TextBox ( = Format(ıskalış, "#,##0.00") şeklinde formatlı ve TextBox' tan hücrelere atılan veri parasal değer olması gerekiyor. Ekteki dosyada hata mesajı ve açıklama var incelerseniz sevinirim. Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

Sayın Vedatelci den alıntıdır. UserForm'dan Çalışma sayfasına aktarma yapan kod

Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If txtstokadi.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız", vbInformation, "DİKKAT!"
Exit Sub
End If
Next bos
If txtsira = "" Or txtstokadi = "" Then
MsgBox "Stok listesinden bir Ürün seçmelisiniz", vbInformation, "DİKKAT"
Else
ActiveCell = txtstokadi
ActiveCell.Offset(0, 1) = txtstokkodu.Value
ActiveCell.Offset(0, 2) = txtsatici.Value
ActiveCell.Offset(0, 3) = txttel.Value
ActiveCell.Offset(0, 4) = txtyetkili.Value
ActiveCell.Offset(0, 5) = txtsehir.Value
ActiveCell.Offset(0, 6) = txtolcu.Value
If txtalisft1.Value <> "" Then
ActiveCell.Offset(0, 7) = txtalisft1.Value
Else
ActiveCell.Offset(0, 7) = txtalisft.Value
End If
If txtsatisft1.Value <> "" Then
ActiveCell.Offset(0, 8) = txtsatisft1.Value
Else
ActiveCell.Offset(0, 8) = txtsatisft.Value
End If
ActiveCell.Offset(0, 9) = txtgirismik2.Value
'ActiveCell.Offset(0, 10) = txtcikismik2.Value
ActiveCell.Offset(0, 11) = txtkalanmik2.Value
'ActiveCell.Offset(0, 12) = txtalistutar2.Value
'ActiveCell.Offset(0, 13) = txtsatistutar2.Value
ActiveCell.Offset(0, 14) = txtpara1.Value
End If
If txtgirismik1 <> "" Then
MsgBox "Veriniz de&#287;i&#351;tirildi..." & txtstokadi.Value & "Adl&#305; Stokunuza " & txtgirismik1.Value & txtolcu.Value & " Eklendi", , "KAYIT"
Else
MsgBox "Veriniz DE&#286;&#304;&#350;T&#304;R&#304;LEMED&#304; &#199;&#252;nk&#252; STOK G&#304;R&#304;&#350;&#304; Yapmad&#305;n&#305;z...", vbExclamation, "D&#304;KKAT"
Exit Sub
End If

'veriler ALIS Sayfas&#305;na da Ekleniyor...

Sheets("ALIS").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = txtstokadi.Value
ActiveCell.Offset(0, 2) = txtstokkodu.Value
ActiveCell.Offset(0, 3) = txtolcu.Value
ActiveCell.Offset(0, 4) = txtsehir.Value
If txtalisft1.Value <> "" Then
ActiveCell.Offset(0, 5) = txtalisft1.Value
Else
ActiveCell.Offset(0, 5) = txtalisft.Value
End If
If txtsatisft1.Value <> "" Then
ActiveCell.Offset(0, 6) = txtsatisft1.Value
Else
ActiveCell.Offset(0, 6) = txtsatisft.Value
End If
ActiveCell.Offset(0, 7) = txtgirismik1.Value
ActiveCell.Offset(0, 8) = txtalistutar1.Value
ActiveCell.Offset(0, 9) = txtpara1.Value
ActiveCell.Offset(0, 10) = &#305;skoran&#305;.Value
ActiveCell.Offset(0, 11) = &#305;skmik.Value
ActiveCell.Offset(0, 12) = &#305;skal&#305;&#351;.Value

Sheets("DATA").Select
Range("A1").Select
cmdkasa_Click
cmdtemizle_Click
txtstokadi.RowSource = "DATA!B2:B" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
 
Son düzenleme:
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Userformda kullandığımız excel sayfasına aktarma kodlarını ekleyebilirmisiniz?
 
O

oerbas

Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
oerbas' Alıntı:
Sevgili Arkadaşlar;

TextBox'tan çalışma sayfasına veri aktarırken hata oluşuyor. Açıklamak gerekirse TextBox ( = Format(ıskalış, "#,##0.00") şeklinde formatlı ve TextBox' tan hücrelere atılan veri parasal değer olması gerekiyor. Ekteki dosyada hata mesajı ve açıklama var incelerseniz sevinirim. Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

Sayın Vedatelci den alıntıdır. UserForm'dan Çalışma sayfasına aktarma yapan kod

Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If txtstokadi.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız", vbInformation, "DİKKAT!"
Exit Sub
End If
Next bos
If txtsira = "" Or txtstokadi = "" Then
MsgBox "Stok listesinden bir Ürün seçmelisiniz", vbInformation, "DİKKAT"
Else
ActiveCell = txtstokadi
ActiveCell.Offset(0, 1) = txtstokkodu.Value
ActiveCell.Offset(0, 2) = txtsatici.Value
ActiveCell.Offset(0, 3) = txttel.Value
ActiveCell.Offset(0, 4) = txtyetkili.Value
ActiveCell.Offset(0, 5) = txtsehir.Value
ActiveCell.Offset(0, 6) = txtolcu.Value
If txtalisft1.Value <> "" Then
ActiveCell.Offset(0, 7) = txtalisft1.Value
Else
ActiveCell.Offset(0, 7) = txtalisft.Value
End If
If txtsatisft1.Value <> "" Then
ActiveCell.Offset(0, 8) = txtsatisft1.Value
Else
ActiveCell.Offset(0, 8) = txtsatisft.Value
End If
ActiveCell.Offset(0, 9) = txtgirismik2.Value
'ActiveCell.Offset(0, 10) = txtcikismik2.Value
ActiveCell.Offset(0, 11) = txtkalanmik2.Value
'ActiveCell.Offset(0, 12) = txtalistutar2.Value
'ActiveCell.Offset(0, 13) = txtsatistutar2.Value
ActiveCell.Offset(0, 14) = txtpara1.Value
End If
If txtgirismik1 <> "" Then
MsgBox "Veriniz değiştirildi..." & txtstokadi.Value & "Adlı Stokunuza " & txtgirismik1.Value & txtolcu.Value & " Eklendi", , "KAYIT"
Else
MsgBox "Veriniz DEĞİŞTİRİLEMEDİ Çünkü STOK GİRİŞİ Yapmadınız...", vbExclamation, "DİKKAT"
Exit Sub
End If

'veriler ALIS Sayfasına da Ekleniyor...

Sheets("ALIS").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = txtstokadi.Value
ActiveCell.Offset(0, 2) = txtstokkodu.Value
ActiveCell.Offset(0, 3) = txtolcu.Value
ActiveCell.Offset(0, 4) = txtsehir.Value
If txtalisft1.Value <> "" Then
ActiveCell.Offset(0, 5) = txtalisft1.Value
Else
ActiveCell.Offset(0, 5) = txtalisft.Value
End If
If txtsatisft1.Value <> "" Then
ActiveCell.Offset(0, 6) = txtsatisft1.Value
Else
ActiveCell.Offset(0, 6) = txtsatisft.Value
End If
ActiveCell.Offset(0, 7) = txtgirismik1.Value
ActiveCell.Offset(0, 8) = txtalistutar1.Value
ActiveCell.Offset(0, 9) = txtpara1.Value
ActiveCell.Offset(0, 10) = ıskoranı.Value
ActiveCell.Offset(0, 11) = ıskmik.Value
ActiveCell.Offset(0, 12) = ıskalış.Value

Sheets("DATA").Select
Range("A1").Select
cmdkasa_Click
cmdtemizle_Click
txtstokadi.RowSource = "DATA!B2:B" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
Genişletmek için tıkla ...
Hocam yukarıdaki kodu yanlışlıkla gönderdim rica etsem aşağıdaki kodu
incelermisiniz

If txtstokadi.Value <> "" Then
Sheets("KASA").Activate
Cells(11, 2).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.txtstokadi.Value) Then
If MsgBox(Me.txtstokadi & " Dosya Numaralı Kayıt Vardır." & " Yeniden Kayıt Yapılsın mı?", vbYesNo, "Mükerrer Kayıt") = vbNo Then Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Loop
dene = Application.CountA(Sheets("KASA").Columns("A"))
'KASA GİRİŞLERİ YAPILIYOR
ActiveCell.Value = ("ÇIKIŞ") 'Kasa işlemi Çıkış alarak seçiliyor
ActiveCell.Offset(0, 2).Value = Dete
'ActiveCell.Offset(0, 2).Value = txtışlemturu.Value
ActiveCell.Offset(0, 2).Value = ödeme
ActiveCell.Offset(0, 4).Value = txtsira + alıslarım.Value 'Açıklamaya satış giriliyor"
ActiveCell.Offset(0, 6).Value = ıskalış1.Value
End If
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
ActiveCell.Offset(0, 2).Value = &#246;deme
sat&#305;r&#305;n&#305;
ActiveCell.Offset(0, 2).Value = cCur(&#246;deme*1)
olarak deneyebilirmisiniz.
 
O

oerbas

Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Sayın Ripek demişki ;

ActiveCell.Offset(0, 2).Value = ödeme
satırını
ActiveCell.Offset(0, 2).Value = cCur(ödeme*1)
olarak deneyebilirmisiniz.

Üstad çok teşekkür ediyorum işimi ziyadesi ile gördü. Sevdiklerinizle birlikte nice bayramlar diliyorum.
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
&#304;&#351;inize yarad&#305;&#287;&#305;na sevindim.Bende sizin bayram&#305;n&#305;z&#305; kutlar&#305;m.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst