kod ile sheetlere veri girişi

[alimutlu2308]

Sayın hocalarım hayırlı günler
işyerimde hizmet araçları ile ilgili bir tablo hazırlamaya çalışıyorum. Belirli bir yere kadar geldim fakat kod yazarken bir yerde takılıp kaldım. Yaşadığım problemi kısaca anlatmam gerekirse bir UserForm hazırladım ve bu UserForm'un üzerindeki bilgilere göre excelde sheetlere kayıt yaptırmaya çalışıyorum. Tabloda 2 ad. sheet var biri VeriTabani diğeri Konselide. Bilgileri VeriTabani sheet'ine yazdırabildim fakat konselide sheet'ine yazdıramadım çünkü biraz fazla koşul oluştu. belli bir aşamaya geldim ama tam olarak halledemedim. Örnek tabloyu ekledim. Sadece yakıt girişi yaptığımda rakamları doğru yere kayıt yaptıramıyorum. Örnek bir veri girişi yaparsanız sanırım anlatmak isteğim daha iyi anlaşılır. Teşekkürler

 

[alimutlu2308]

Kod ile sheet'lere veri kaydetme

Zaman ayırabilecek sayın hocalarımın yardımını bekliyorum.
Teşekkürler

 

[Husgvarna]

Aşağıdaki kodları butondaki ilgili aralığa ekleyin.

 Private Sub CommandButton1_Click()  
 
[COLOR="#ff0000"]'..................
'......................
'.........................

Cells(Satır, "E") = ComboBox4.Text
    Cells(Satır, "F") = TextBox1.Text
    Cells(Satır, "G") = TextBox2.Text[/COLOR]


               
    Sheets("Konselide").Select

   a = [c4:c65000].Find(What:=ComboBox1.Value, LookAt:=xlWhole).Row
   b = [a1:aa1].Find(What:=ComboBox3.Value, LookAt:=xlWhole).Column
   If b > 23 Then n = 1
   If b < 23 Then n = 4
   For s = 0 To n
  If ComboBox2.Value = Cells(2, b + s).Value Then GoTo f
  Next
f:
  t = Cells(2, b + s).Column
  If ComboBox2.Value = "Yakıt Gideri" And TextBox1 = "" Then MsgBox "Litre Giriniz"
  If ComboBox2.Value = "Yakıt Gideri" And TextBox1 <> "" Then
If Cells(a, t) <> "" Then MsgBox "kayıt değiştirilecek"
  Cells(a, t) = CDbl(TextBox1)
   Cells(a, t + 1) = CDbl(TextBox2)
   Else
If Cells(a, t) <> "" Then MsgBox "kayıt değiştirilecek"
   Cells(a, t) = CDbl(TextBox2)
   End If
   


     [COLOR="Red"]With UserForm1.ListBox1
        .BackColor = vbYellow
        .ColumnCount = 7

'..................
'......................
'.........................[/COLOR]

End sub

 

[alimutlu2308]

belirli bir sayıyı geçerse uyarı verme

Sayın hocam çok teşekkür ederim. Peki litre kısmı 250 rakamını aşar ise aşan kısmı bir msgbox ile bildirim ve aşanrakamı başka bir sheet'e nasıl yazdırabilirim acaba. tabi sadece müdür aracı için limit kontrolü yapmak istiyorum

Örnek vermek gerekirse Mesela merkez şubenin müdür aracının ocak ayındaki
alımları 250 litreyi geçer ise 250 ye kodar olan kısmı yazdırılsın aşan kısmı ise oluşturacağımız yeni sheet nasıl yazdırabiliriz acaba?

Tşk.