Ürün girişi ve stokdan otomatik düsürülmesi

[ttrance]

hocam düşeyara fonksiyonu neden userformla hucrelere girdigimiz bilgileri gormez..

 

[Levent Menteşoğlu]

hocam düşeyara fonksiyonu neden userformla hucrelere girdigimiz bilgileri gormez..

Eğer veriler sayısal ise görmeyebilir. Çünkü textboxtan sayfaya aktarılan veriler metin olarak algılanacaktır. Bu durumda verileri sayıya çevirerek aktarmak gerekir.

 

[ttrance]

Eğer veriler sayısal ise görmeyebilir. Çünkü textboxtan sayfaya aktarılan veriler metin olarak algılanacaktır. Bu durumda verileri sayıya çevirerek aktarmak gerekir.

hocam sayısal olması için ne gibi bir degişiklik yapabilirim..

 

[Levent Menteşoğlu]

hocam sayısal olması için ne gibi bir degişiklik yapabilirim..

Bunun için en pratik yol textbox değerini 1 (bir) ile çarptırarak hücreye aktarmaktır. Örneğin,

range("a1")=textbox1*1

 

[ttrance]

Bunun için en pratik yol textbox değerini 1 (bir) ile çarptırarak hücreye aktarmaktır. Örneğin,

range("a1")=textbox1*1

hocam her satır için bunu ayrı ayrımı yazmam gerekiyor

ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 1).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 6).Value = TextBox6.Value
ActiveCell.Offset(0, 5).Value = TextBox8.Value

 

[ttrance]

command buton altındaki koda *1 ekleyince duzeldi hocam...

Cells(son, a) = Controls("textbox" & a) * 1

 

[ttrance]

command buton altındaki koda *1 ekleyince duzeldi hocam...

Cells(son, a) = Controls("textbox" & a) * 1

duzelmemiş

rakam yazılıyken sorun olmuyoda harf yazınca hata veriyor....

 

[Levent Menteşoğlu]

duzelmemiş

rakam yazılıyken sorun olmuyoda harf yazınca hata veriyor....

Aşağıdaki gibi deneyin.

Cells(son, a) = Controls("textbox" & a)
if isnumeric(controls("textbox" & a))=true then Cells(son, a) = Controls("textbox" & a) * 1

 

[ttrance]

calıştı hocam sagolasın yardımlarınla cogu arkadaşımızın ve benim işine yarıyacak stok ve fatura sayfası hazırlıyorum

 

[ttrance]

ELİMİZDE KALAN ÜRÜNÜN ADEDİNİ HESAPLATMAK İÇİN BOLE BİR KOD DUZENLEDİM FAKAT Set alan2 = Sheets("ÜRÜNLER").Range("A7:A1000") ARALIGINDAKİ HUCRELERİN HEPSİNE SIFIR ATIYOR VE ARALIK BUYUK OLDUGU İÇİN EXCEL UZUN BİR SURE CEVAP VERMİYOR..

Private Sub CommandButton7_Click()
Dim alan1, alan2 As Range
Dim veri1, veri2 As Variant
Set alan1 = Sheets("SATIŞ").Range("A10:A100")
Set alan2 = Sheets("ÜRÜNLER").Range("A7:A1000")
For Each veri1 In alan1
For Each veri2 In alan2
If veri1.Value = veri2.Value Then
veri2.Offset(0, 9).Value = veri2.Offset(0, 9).Value - veri1.Offset(0, 4).Value
End If
Next veri2
Next veri1
MsgBox "Bitti", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Sheets("ÜRÜNLER").Select
Range("A1").Select
End Sub

 

[ttrance]

ELİMİZDE KALAN ÜRÜNÜN ADEDİNİ HESAPLATMAK İÇİN BOLE BİR KOD DUZENLEDİM FAKAT Set alan2 = Sheets("ÜRÜNLER").Range("A7:A1000") ARALIGINDAKİ HUCRELERİN HEPSİNE SIFIR ATIYOR VE ARALIK BUYUK OLDUGU İÇİN EXCEL UZUN BİR SURE CEVAP VERMİYOR..

Private Sub CommandButton7_Click()
Dim alan1, alan2 As Range
Dim veri1, veri2 As Variant
Set alan1 = Sheets("SATIŞ").Range("A10:A100")
Set alan2 = Sheets("ÜRÜNLER").Range("A7:A1000")
For Each veri1 In alan1
For Each veri2 In alan2
If veri1.Value = veri2.Value Then
veri2.Offset(0, 9).Value = veri2.Offset(0, 9).Value - veri1.Offset(0, 4).Value
End If
Next veri2
Next veri1
MsgBox "Bitti", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Sheets("ÜRÜNLER").Select
Range("A1").Select
End Sub

up up up up