Veri aktarmada hata?

[iaydin20]

merhaba;

arkadaşlar ekteki cari işlem proğramında verileri aktarırken yanlış aktarıyor örnek dosyada detaylı bir şekilde anlattım yardımcı olan arkadaşlara şimdiden teşekkürederim...

 

[iaydin20]

arkadaşlar aşağıdaki kodlarda hata nerede yardımınızı bekliyorum

Private Sub ListBox1_Click()
Set s1 = Sheets("carikayıt")
Set s2 = Sheets("carirapor")
ünvan = s2.[a1]
s2.Range("A11:E65536").ClearContents
Son_Satir = s2.[a65536].End(3).Row
For i = 2 To s1.[a65536].End(3).Row
If ünvan = s1.Cells(i, "A") Then
Adet = Adet + 1
Son_Satir = Son_Satir + 1
s2.Cells(Son_Satir, "A") = s1.Cells(i, "B")
s2.Cells(Son_Satir, "B") = s1.Cells(i, "C")
s2.Cells(Son_Satir, "C") = s1.Cells(i, "D")
s2.Cells(Son_Satir, "D") = s1.Cells(i, "E")
s2.Cells(Son_Satir, "E") = s1.Cells(i, "F")
End If
Next i
Sheets("carirapor").[a1] = ListBox1.Text
End Sub

 

[Orion1]

Kırmızı satırı silerek denermisiniz.

Private Sub ListBox1_Click()
Set s1 = Sheets("carikayıt")
Set s2 = Sheets("carirapor")
ünvan = s2.[a1]
s2.Range("A11:E65536").ClearContents
Son_Satir = s2.[a65536].End(3).Row
For i = 2 To s1.[a65536].End(3).Row
If ünvan = s1.Cells(i, "A") Then
Adet = Adet + 1
Son_Satir = Son_Satir + 1
s2.Cells(Son_Satir, "A") = s1.Cells(i, "B")
s2.Cells(Son_Satir, "B") = s1.Cells(i, "C")
s2.Cells(Son_Satir, "C") = s1.Cells(i, "D")
s2.Cells(Son_Satir, "D") = s1.Cells(i, "E")
s2.Cells(Son_Satir, "E") = s1.Cells(i, "F")
End If
Next i
[B][COLOR="Red"]Sheets("carirapor").[a1] = ListBox1.Text[/COLOR][/B]
End Sub

 

[Orion1]

Ekli dosyayı incelermisiniz.

 

[iaydin20]

hocam o kısım gerekli şunun için a1 e aktarılan firma ismi ile cari kayıt sayfasından arama yapıyor ve o firmanın bilgilerini süzerek rapor sayfasına aktarıyor...

 

[iaydin20]

hocam dosya yok

 

[Orion1]

hocam dosya yok

4 numaralı mesajda dosya var.

 

[iaydin20]

Sn Orion2 yardımınız için çok teşekkür ederim..
bir sorumdaha olacak

ListView1.refresh komutunu nereye yazmalıyım ki listboxtan firma seçtiğimde ListViewi yinelesin ..
ve bu sildiğimiz kısım için alternatif bir çözümünüz varmı

tekrara teşekkürler çalışmalarınızda başarılar...

 

[Orion1]

Sn Orion2 yardımınız için çok teşekkür ederim..
bir sorumdaha olacak

ListView1.refresh komutunu nereye yazmalıyım ki listboxtan firma seçtiğimde ListViewi yinelesin ..
ve bu sildiğimiz kısım için alternatif bir çözümünüz varmı

tekrara teşekkürler çalışmalarınızda başarılar...

Refreşi listbox'ın click olayına en alta yazabilirsiniz.
Silinen satır ise şu anda benim yolladığım dosyadaki kodlardan sonra hiçbir işe yaramıyor.
Ama ben illaki bu satırında olmasını istiyorum derseniz.O satırı gene koyabilirsiniz.

 

[iaydin20]

hocam heryere denedim olmuyo birşeyi yanlış yapıyorum heralde
birde alternatif çözüm derken o firmanın bilgilerini forma nasıl aldırabilirim demek istedim ...

saygılar

 

[Orion1]

hocam heryere denedim olmuyo birşeyi yanlış yapıyorum heralde
birde alternatif çözüm derken o firmanın bilgilerini forma nasıl aldırabilirim demek istedim ...

saygılar

Ekli dosyayı inceleyiniz.