toplamı yansıtamıyorum bilen varmı

[cetorp2007]

arkadaşlar eklediğim doyanın kcbpomp001 sayfasında veri girişi yapıyorum ama girtikten sonra textboza aktarmıyor dosyanın içindede yol gösterdim bakarsanız neresi olduğuna

açılış şifre : kcb
vb şifresi : guray

not: çalışmamın bazı kısımları leventm arkadaşımızı örneklerinden alıntı yapmıştır bu arada ona teşekkürleri sunarım

 

[cetorp2007]

acaba soruyu anlatamadımmı yoksa cevabını bilenmi yok acaba arkadaşalar...

 

[cetorp2007]

üstadlar yokmu şuan forumda bi el atsanız çalıştırsak şu arabayı )))

 

[ozuberk]

ben bir problem göremedim anladım kadarıyla gayet güzel çalışıyor

 

[udentr2002]

istediğin böyle bir şeymi

 

[cetorp2007]

üstad bakım veri girişleriden girişleri yapınca ok la gösterdiğim yerdeki textbox sayıyı göstermiyor ama veri girişinden değilde hücrenin içine klevye ile giriş yaparsam sorun yok ozaman ama ben sonra hücreleri kitlicem ve userform veri girişiyle yapılacak girişler

 

[cetorp2007]

udent2002 üstad nasıl bişeymi dosyayı göremiyorummm ))

 

[udentr2002]

KCBPOMP001 sayfasının kod bölümüne o sayfadaki texbox4 ün change olayına aşağıdaki kodu yaz

Private Sub TextBox4_Change()

Sheets("DomHavuzlar").TextBox12.Value = Sheets("KCBPOMP001").TextBox4.Value
TextBox4.Text = Sheets("KCBPOMP001").Range("f50")
End Sub

 

[cetorp2007]

Olmadi Be Üstad HÜcre Gİrİp Enter Basinca Yaziyor Ancak

 

[cetorp2007]

arkadaşlar ilgilenenlere bir süre cevap veremiyeceğim eve git,dince bakarım sordun soruyu kaştın demeyin mesai bittide

 

[cetorp2007]

bu ne anlama geliyor anlamış değilim konu içinde konu açmak yaa

 

[udentr2002]

userform4 deki button1 yani kaydet butonunun click olayının altındaki kodlarını aşağıdaki kodlarla değiştirip denermisin lütfen

Private Sub CommandButton1_Click()
For A = 1 To 8
If Controls("textbox" & A) = "" Then
MsgBox "VERİ GİRİŞİ EKSİKTİR"
Exit Sub
End If
Next
t1 = CDbl(TextBox6)
t2 = CDbl(TextBox7)
t1 = t1 * 1
t2 = t2 * 1

sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1).Value = TextBox1
Cells(sonsat, 2).Value = TextBox2
Cells(sonsat, 3).Value = TextBox3
Cells(sonsat, 4).Value = TextBox4
Cells(sonsat, 5).Value = TextBox5
Cells(sonsat, 6).Value = t1
Cells(sonsat, 7).Value = t2
Cells(sonsat, 8).Value = ComboBox1.Value
Sheets("KCBPOMP001").TextBox4 = Sheets("KCBPOMP001").Range("f50")

End Sub

 

[cetorp2007]

udentr2002 teşekküler üstad bu olay tamamdır aktarmayı anında yapıyor...

eline sağlık