klasor sec - dosya ac

[beyaz34]

Geçenlerde excel arsivimi kurcalarken herhalde yöneticiler tarafından hazırlanmış
klasor sec - dosya ac buldum 2 adet kaydet butonu koydum 2 ayrı sayfaya kaydetmek iştiyorum verileri yardım ederseniz sevinirim tesekkürler ,,,,

 

[beyaz34]

Yardımlarınız
için teşekkürler...

 

[fedeal]

Private Sub CommandButton2_Click()
Set s1 = Sheets("sayfa2")
s1.[a3:a65536].ClearContents
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range("a3:" & Cells(sat + 2, sut).Address) = ListBox1.List
End Sub

Private Sub CommandButton3_Click()
Set s1 = Sheets("sayfa3")
s1.[a3:a65536].ClearContents
sat = ListBox2.ListCount
sut = ListBox2.ColumnCount
s1.Range("a3:" & Cells(sat + 2, sut).Address) = ListBox2.List
End Sub

Sayın Levent Menteşoğlunun kodları işinizi görür umarım. iyi çalışmalar.

 

[beyaz34]

Fedeal ve levent kardesime tesekkürler...

 

[fedeal]

Fedeal ve levent kardesime tesekkürler...

ricaederim iyi çalışmalar.

 

[beyaz34]

1ci Kayıtdı yaptıktan sorna 2ciye gecince 1ci kaydıt siliniyor ama tüm kayıt işlemlerini
alt alt'ta kaydetmesini iştiyorum ............

 

[fedeal]

Private Sub CommandButton3_Click()
Set s1 = Sheets("sayfa3")
son = s1.[a65536].End(3).Row+1
sat = ListBox2.ListCount
sut = ListBox2.ColumnCount
s1.Range("a" & son & ":" & Cells(sat + 2, sut).Address) = ListBox2.List
End Sub

istediginiz bumu,denermisiniz.

 

[beyaz34]

ListBox1'daki klasörü tıkladığın zaman -ListBox2'de klasörleri göstermiyor

 

[beyaz34]

günaydın::::::::

 

[fedeal]

Tam anlamdığım için cevap vermedim (başkası verir diye) tamamen atarak bir çalışma yaptım umarım istediginiz budur.İyi çalışmalar.