hücre tanıtma problemi

[tlgtrn]

arkadaşlar,

sat = ComboBox3.ListIndex + 4
sut = ComboBox4.ListIndex + 5
s5.Cells(sat, sut) = s5.Cells(sat, sut) - TextBox4.Value

MsgBox ComboBox3.Text & " Modelinden " & TextBox4.Value & " " & "Adet REZERVASYONLU MAL ÇIKIŞI YAPILDI..", vbInformation, "SİSTEM BİLGİSİ"


kodu ile s5.Cells(sat,sut) hücresinde değişiklik yapabiliyorum.. Amaaa


sat = rezgor.TextBox1.Value
sut = rezgor.TextBox2.Value
bakiye = s5.Cells(sat, sut) - TextBox1.Value
Select Case bakiye
Case Is < 0
MsgBox ("Yeterli sayıda ürün mevcut değil...!!")
Unload Me
Exit Sub
End Select
s5.Cells(sat, sut) = bakiye
MsgBox (model1 & "modelinden" & TextBox1.Value & "adet rezervasyon iptal edildi")


kodları ile başka bir formda işlem yapamıyorum.. s5.cells(sat,sut) kodu hata veriyor.. nerde yanlışım var acaba??


yardımcı olcaksa dosyayıda ekledim.. hata veren kod userform1 de...

teşekkürler

 

[zafer]

Merhaba

kodlar&#305;n en ba&#351;&#305;na
Set s5 = Sheets("sayfa ad&#305;n&#305; yaz&#305;n&#305;z")

ekleyiniz.

edit: Dosyan&#305;za bakt&#305;m &#246;ncelikle sat&#305;r ve s&#252;t&#252;n de&#287;erleriniz Rezgor isimli formdaki textbox'lardan al&#305;yor

sat = rezgor.TextBox1.Value
sut = rezgor.TextBox2.Value
bakiye = s5.Cells(sat, sut) - TextBox1.Value

Rezgor formundaki textbox1 ve 2 yi herhangi bir sayfadaki h&#252;crelere atay&#305;n
userform1 de sat ve sut de&#287;i&#351;kenleri de&#287;erlerini oradan als&#305;n.
Rezgor formunda userformdan &#246;nce i&#351;lem yapmal&#305;s&#305;z ki de&#287;erler h&#252;crelere yaz&#305;ls&#305;n oradanda userform1'e alabilesiniz.

 

[tlgtrn]

Merhaba

kodların en başına
Set s5 = Sheets("sayfa adını yazınız")

ekleyiniz.

Zaten gerçek dosyada ekledim.. buraya sadece ilgili bölümleri gönderdiğim için göremediniz.. Ekli dosyadan incelerseniz belki daha çok yardım edebilirsiniz.. Başka bir sorun var ama bulamadım..

 

[zafer]

Evet dosyanızı görmemiştim.İlk mesajımı düzelledim.

 

[zafer]

Merhaba

Rezgor isimli formdaki textbox'ları iptal ettim.
Listbox1 de seçtiğiniz müşterinin seri numarasına dokunduğunuzda rezervasyon isimli sayfadaki serinoyu bulup hücreyi seçiyor.
Userform1'i açtığnızdada sat ve sut değişkenleri aktif hücrenin(konumlanmış olan hücreni) satır ve sütün numaralarını alıyor

inceleyiniz.

 

[tlgtrn]

san&#305;r&#305;m s&#246;yledi&#287;iniz gibi di&#287;er formdan veri al&#305;rken bi problem oluyor.. dedi&#287;iniz gibi textboxlar&#305; iptal ettim, oradan alaca&#287;&#305;m de&#287;eri ba&#351;ka bir sayfaya verip, tekrar ayn&#305; yerden al&#305;nca sorun &#231;&#246;z&#252;ld&#252;.. biraz ta&#351;&#305;ma su oldu bu ama neyse.. &#231;ok te&#351;ekk&#252;r ederim..

ayn&#305; anda atm&#305;&#351;&#305;m mesaj&#305;..

 

[tlgtrn]

dosyam&#305; m&#305; d&#252;zelttiniz? ben g&#246;rememiyorum nas&#305;l indirilecek..

g&#246;rd&#252;m g&#246;rd&#252;m hemen bak&#305;yoruumm

 

[zafer]

Merhaba

Açıklamanızda tam olarak ne yapmak istediğinizi anlatmadığınız için kendime göre kodları düzenlemştim.

Kodlarınızı tam incelediğimde anladım sanıyorum

Şöyleki

Rezyon formundaki müşteriyi seçiyorsunuz listboxtanda serinoyu seçiyorsunuz userform1 de ise seçtiğiniz müsterinin kaç adet rezervasyon iptal edeceğini yazıyorsunuz.
Komut tuşuna basılınca Stok durumu ve müşteri sütunlarından userform1 textbox1'e yazdığınız değer kadar o hucrelerden düşüyor.

Yeni dosya ektedir.

 

[zafer]

Merhaba

Userfor1 deki iptal et butonundaki kodlar&#305;da a&#351;a&#287;&#305;dakiler ile de&#287;i&#351;tirirsenizde ayn&#305; i&#351;lemi yap&#305;yor.
sadece rezgor ile userform birlikte a&#231;&#305;lmas&#305; &#351;art&#305; ile

Hangisini isterseniz onu kullan&#305;n

Private Sub CommandButton1_Click()
Set s5 = Sheets("rezervasyon")
sat = rezgor.TextBox1.Value * 1
sut = rezgor.TextBox2.Value * 1
model1 = s5.Cells(sat, 2).Text
Cells(sat, sut).Select

Select Case TextBox1.Value
Case Is = ""
MsgBox ("Adet girmediniz.......")
Exit Sub
End Select

Select Case sat
Case Is = 0
MsgBox ("Stok se&#231;mediniz.......")
Exit Sub
End Select
MsgBox sat
MsgBox sut

bakiye = s5.Cells(sat, sut) - TextBox1.Value * 1
ActiveCell = ActiveCell - TextBox1.Value * 1
MsgBox bakiye

Select Case bakiye
Case Is < 0
MsgBox ("Yeterli say&#305;da &#252;r&#252;n mevcut de&#287;il...!!")
Unload Me
Exit Sub
End Select

s5.Cells(sat, 3) = bakiye
MsgBox (model1 & "modelinden" & TextBox1.Value & "adet rezervasyon iptal edildi")
End Sub

 

[tlgtrn]

ilgine çok teşekkür ederim, sayın zafer bey.. yapmak istediğim aynen buydu..

ufak çaplı bir stok programı yazmaya çalışıyorum.. tabiki henüz bitmedi ama programı incelemeye vaktiniz olursa incelerseniz çok sevinirim.. belki sizden birkaç ipucu veya yorum alabilirim.. şimdiden teşekkürler..