• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Araç takip programi yardım..

  • Konbuyu başlatan Konbuyu başlatan ozmacig
  • Başlangıç tarihi Başlangıç tarihi
O

ozmacig

Katılım
13 Mart 2007
Mesajlar
136
Excel Vers. ve Dili
türkce
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....
 

Ekli dosyalar

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
 
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
 
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
 
hocam anlatamadım gailba comboboxta görünmesini istemediğim sayfalar var onları nasıl engelleye bilirim
 
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
 
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
 
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
 
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 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....
 
halit3' Alıntı:
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
Genişletmek için tıkla ...

hocam olmadı hata veriyor
 
ekli dosyaya bir bak

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

Ekli dosyalar

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
 
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
 
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
 
anlamadım buradaki formülleri ve toplamalarımı söylüyorsun
 
foksiyonların macroda yazma imkanı varmı diye sorsam daha anlaşır olacak.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst