Araç takip programi yardım..

[ozmacig]

Sevgili arkadaşlar ekte bir araç harcamalarını giriş programı yaptın. ancak bir kaç yere takıldım yardımlarınızı bekliyorum.

- Userform'da 2 adet combobox mevcut bu comboboxların 1 tanesi araç plakalarını seciyorum öteki comboboxtan gireceğim bilgilerin hangi aya ait olduğunu seciyorum .
buraya kadar sorun yok. ancak hangi aya ait sectiğim combobox o aya ait hücreyi secmesini ve yandaki texboxlara yazdığım bilgilerin o aya ait hücrelere işlenmesini istiyorum ancak bir türlü başaramadım bana yardımcı olursanız sevinirim ..... yardımcı olabilecek arkadaşlara şimdiden teşşekürler....

 

[halit3]

bu kodu denermisiniz.

Private Sub CommandButton1_Click()
sayfa = ComboBox1.Text
satır = ComboBox2.ListIndex + 4
Worksheets(sayfa).Cells(satır, 2).Value = BC1.Text
Worksheets(sayfa).Cells(satır, 3).Value = BC2.Text
Worksheets(sayfa).Cells(satır, 5).Value = BC3.Text
Worksheets(sayfa).Cells(satır, 6).Value = BC4.Text
Worksheets(sayfa).Cells(satır, 7).Value = BC5.Text
Worksheets(sayfa).Cells(satır, 8).Value = BC6.Text
Worksheets(sayfa).Cells(satır, 9).Value = BC7.Text
Worksheets(sayfa).Cells(satır, 10).Value = BC8.Text
Worksheets(sayfa).Cells(satır, 13).Value = BC9.Text
aciklama = "KAYIT YAPILDI"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "GÖREV EMRİ KAYDI"
MsgBox aciklama, buton, baslik
End Sub

 

[ozmacig]

hocam ellerine sağlık teşekkürler

 

[ozmacig]

hocam bir sorum daha olacak exel kitabında bircok sayfa acıcam ancak combobox1 e bazı sayfa isimlerini almak istiyorum acaba nasıl yapıcağım

 

[halit3]

userform açıldığında bunu zaten yapıyor sen istediğin kadar sayfa ekle aşağıdaki kod ComboBox1 bunları yazıyor

Private Sub UserForm_Initialize()
For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
With GRIS.ComboBox2
.AddItem "Ocak"
.AddItem "Şubat"
.AddItem "Mart"
.AddItem "Nisan"
.AddItem "Mayıs"
.AddItem "Haziran"
.AddItem "Temmuz"
.AddItem "Ağustos"
.AddItem "Eylül"
.AddItem "Ekim"
.AddItem "Kasım"
.AddItem "Aralık"
End With
End Sub

 

[ozmacig]

hocam anlatamadım gailba comboboxta görünmesini istemediğim sayfalar var onları nasıl engelleye bilirim

 

[halit3]

ben iki adet sayfa ismini yaptım sen buna bakarak çogaltabilirsin sayfa1 ve sayfa2 yi listeye dahil etmiyecek

For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
If Sheets(i).Name <> "Sayfa2" Then
ComboBox1.AddItem Sheets(i).Name
End If
End If
Next

 

[ozmacig]

cok sağol hocam ellerine sağlık

 

[ozmacig]

hocam dediğini uyguladım ancak başka sayfa ismi eklediğimde next without for hatası alıyorum. acaba neden ....

Private Sub UserForm_Initialize()
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
If Sheets(i).Name <> "Sayfa2" Then
If Sheets(i).Name <> "IDAUC1" Then
ComboBox1.AddItem Sheets(i).Name
End If
End If
Next

 

[ozmacig]

hocam tamam bitirmeyi unutmuşum...
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
If Sheets(i).Name <> "Sayfa2" Then
If Sheets(i).Name <> "IDAUC1" Then

ComboBox1.AddItem Sheets(i).Name
End If
End If
End If
Next i

 

[halit3]

aşağıdaki yöntemlede yapabilirsin

For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Sayfa1" Then 'bunun gibi ekleyebilirsin birincisi If ile olur diğerleri ElseIf
ElseIf Sheets(i).Name = "Sayfa2" Then 'bunun gibi ekleyebilirsin
ElseIf Sheets(i).Name = "IDAUC1" Then 'bunun gibi ekleyebilirsin
ElseIf Sheets(i).Name = "Sayfa3" Then 'bunun gibi ekleyebilirsin
Else
ComboBox1.AddItem Sheets(i).Name
End If
Next i

 

[ozmacig]

hocam bir adet daha sorum olacak combobox2 dan ayları sectiğimde texboxlarda dolu olan hücrelerin görünmesini nasıl sağlayacağım yardımlarınızı bekliyorum....

 

[ozmacig]

aşağıdaki yöntemlede yapabilirsin

For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Sayfa1" Then 'bunun gibi ekleyebilirsin birincisi If ile olur diğerleri ElseIf
ElseIf Sheets(i).Name = "Sayfa2" Then 'bunun gibi ekleyebilirsin
ElseIf Sheets(i).Name = "IDAUC1" Then 'bunun gibi ekleyebilirsin
ElseIf Sheets(i).Name = "Sayfa3" Then 'bunun gibi ekleyebilirsin
Else
ComboBox1.AddItem Sheets(i).Name
End If
Next i

hocam olmadı hata veriyor

 

[halit3]

ekli dosyaya bir bak

ilgili ayı seçmeden önce mutlaka veri sayfanın adını seçmelisin yoksa istediğin verileri alamazsın

 

[ozmacig]

hocam cok sağol ....ellerin dert görmesin

 

[ozmacig]

hocam bir sorum daha olacak macro ile iki hücreyi toplayıp yada bölüp aynı sayfada başka bir hücreye yazmak nasıl yapılıyor kodu varsa verirseniz sevinirim

 

[halit3]

Burada A1 ve A2 topluyoruz ve A3 e yazdırıyoruz. aşağıda buna 2 adet örnek var

A3 = A1 + A2

a = Worksheets(ActiveSheet.Name).Cells(1, 1).Value
b = Worksheets(ActiveSheet.Name).Cells(2, 1).Value
Worksheets(ActiveSheet.Name).Cells(3, 1).Value = a + b

a = Worksheets("Sayfa1").Cells(1, 1).Value
b = Worksheets("Sayfa1").Cells(2, 1).Value
Worksheets("Sayfa1").Cells(3, 1).Value = a + b

 

[ozmacig]

hocam deneme kitabındaki fonksiyonları macroda yazma imkanı varmı acaba çünkü yaklaşık 300 yakın sayfa açmam ve bu şablonu uygulamam lazım kitap cok şişiyor... fonksiyonları eğer macroda hallede bilirsen kitab boyudu ve kaydetme hizi dahada artacağını düşünüyorum yardımcı olursanız sevinirim

 

[halit3]

anlamadım buradaki formülleri ve toplamalarımı söylüyorsun

 

[ozmacig]

foksiyonların macroda yazma imkanı varmı diye sorsam daha anlaşır olacak.