araç km takip programı

[ozmacig]

excelde yapmış olduğum km takip programında iki tarih arasında verileri süzerek listboxa aktarıyor ve listboxa aktarılan verileri bir buton yardımıyla 2.sayfaya aktarıyor.,

sorunum şu; listboxa sayfa1 excelin aynısını aktara bilirmiyim.
2.sayfaya yeniden aktar dediğimde sayfayı temizlemiyor.
yardımcı olursanız sevinirim...

 

[fedeal]

2.sayfaya aktar butonunun kodlarını böyle değiştirin

Private Sub CommandButton2_Click()
Sayfa2.Range("A2:k1000").ClearContents
Set s1 = Sheets("sayfa2")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range(s1.Cells(2, 1), s1.Cells(sat, sut)) = ListBox1.List
End Sub

listboxun sütun sayısını 10'a düşürün

ListBox1.ColumnCount = 10

deneyin işinizi görür umarım, saygılar.

 

[ozmacig]

hocam sağol teşekürler bir sorum daha olacak aktar butonuna bastığımda 1. sayfa formatının aynısı olsa daha mükemmel olacak...

 

[ozmacig]

hocam aktar dediğimde mükerer olarak yani iki tane aktarıyor.

 

[fedeal]

ben öyle bir problem göremedim

 

[ozmacig]

hocam mükerer derken iki tarih arası verileri plakaya göre süzüp aktar dediğimde sayfa 2 nin birinci ve ikinci satıra aynı kaydı aktarıyor.

 

[fedeal]

pardon farketmemişim,

Private Sub CommandButton2_Click()
Sayfa2.Range("A2:k1000").ClearContents
Set s1 = Sheets("sayfa2")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range(s1.Cells(2, 1), s1.Cells(sat + 1, sut)) = ListBox1.List
End Sub

ayrıca sayfa2 1.satıra başlık koyabilirsiniz.

 

[ozmacig]

hocam cok sağol istediğim gibi oldu ....

 

[ozmacig]

Hocam bir sorum daha olacak yardımcı olursan sevinirim ;

ekte yeni düzenlediğim km takip programında kaydet butonuna bastımda bir alt sutuna kaydediyor ancak K sutunundaki formüleri almıyor. bunu macroyla nasıl sağlarım. ve 2. sayfa aktar dediğimde K sutunun en altına genel km toplamı atılmasını nasıl sağlarım

 

[fedeal]

1 cdbl kullanın
ActiveCell.Offset(0, 7).Value = cdbl(G.Text)
2 çıkarıp yollayın

ActiveCell.Offset(0, 11).Value =val(G.TEXT)-val(I.TEXT)

 

[ozmacig]

hocam tam anlayamadım biraz daha acıklaya bilirmisiniz

 

[fedeal]

cdbl( ) içine alınan sayı sayı formatında sayfaya aktarılır.yani formdan g.text diye sayfaya sayı aktardınızmı bu sayfaya metin olarak gizlenen sayı olarak atılır buda sayfada formüller tarafından okunamaz.cdbl(g.text) olarak atarsanız problem ortadan kalkar.

2.yazdıgımda cıkarma işlemini kodlarla yaptırıp sayfaya atabilirsiniz.
ActiveCell.Offset(0, 11).Value =val(G.TEXT)-val(I.TEXT)
yada
ActiveCell.Offset(0, 11).Value =cdbl(G.TEXT)-cdbl(I.TEXT)


not cdbl kullandıgınız textbox boş olmamalı ve sayı içermeli yoksa kodlar hata verir.saygılar.

 

[ozmacig]

hocam bir türlü beceremedim acaba örnek varmı.

 

[fedeal]

Ekli dosyayı inceleyin,

 

[ozmacig]

Hocam cok sağol ellerine sağlık. afınıza sığınarak bir soru daha soracağım K sutunun enson dolu satırının toplamını nasıl yapa bilirim

 

[fedeal]

k2:k23 aralığı gibimi? yani k2 den enson dolu olan k satırına kadarmı? nereye yazdıracaksın sayfaya textboxa?

 

[ozmacig]

hocam tam anlatamadım gailba ; ekli dosyayı incelediğimizde textboxları doldurup kaydet dediğimde sayfa1 in enson dolu sutunun altına yazdırıyorum . buradanda liste butonundan iki tarih arası plaka nosuna göre sayfa ikiye aktarıyorum, benim burda yapmak istediğim iki sayfaya aktarımdan sonra o aracın o gün nekadar km yaptığı ve bir ay boyunca genel km toplamlarının alınıp dökümünün sağlanması

 

[fedeal]

süzdügünüz verinin toplamınımı istiyorsunuz.belirtiginiz iki tarih arasında yaptıgı kilometreyi yani

 

[ozmacig]

evet hocam. süzdüğüm verilerin toplamını istiyorum

 

[fedeal]

Eki incelermisiniz,