Listwiev yeni excele aktarma

[mf.murat]

Arkadaşlar Ek'te gönderdiğim örnekte Listwiev üzerinde satıra tıkladığımda aktif satır içerisindeki değerleri adresini verdiğim( rapor formatı) farklı excel kitabına istediğim hücrelere command buton ile nasıl aktarabilirim.


Örnek :

Aktif satır 1 nci kolondaki değer rapor.xls "D6" hücresine
Aktif satır 2 nci kolondaki değer rapor.xls "K21" hücresine
gibi.

Listwiev'e tıkladığımda değerleri textboxlara alabiliyorum.
Aktarma işlemini textboxlardanda yapabilirmiyim?

Sürekli aynı rapor formatını kullanacağım için her yazdırmadan önce aktarma yapacağım hücre içeriklerini silmem gerekiyor.

 

[mf.murat]

Arkadaşlar konu hakkında yardımlarınızı bekliyorum...

 

[mf.murat]

Arkadaşlar lütfen yardımlarınızı bekliyorummm

 

[gezgin64]

yazdırılacak rapor sayfasının formatını (dolu hücreleri ve eklenecek hücreleri belirtirsen) eklersen yardımcı olunabilir. Buna benzer bir hazırda çalışmam var. ama istediğini tam anlayamadığım için buraya eklemedim

 

[mf.murat]

Bir user form üzerinde listwiev e tıkladığımda değerleri textboxlara alıyorum.
Textboxa aldığım değerleri Ek'te gönderdiğim rapor sayfasına command buton yardımıyla aktarmak istiyorum.

Ek'te ki Excel dosyam masaüstünde olacak ve sürekli bu formatı kullanacağım.

Önerilerinizi bekliyorum...

 

[halit3]

Arkadaşlar Ek'te gönderdiğim örnekte Listwiev üzerinde satıra tıkladığımda aktif satır içerisindeki değerleri adresini verdiğim( rapor formatı) farklı excel kitabına istediğim hücrelere command buton ile nasıl aktarabilirim.


Örnek :

Aktif satır 1 nci kolondaki değer rapor.xls "D6" hücresine
Aktif satır 2 nci kolondaki değer rapor.xls "K21" hücresine
gibi.

Listwiev'e tıkladığımda değerleri textboxlara alabiliyorum.
Aktarma işlemini textboxlardanda yapabilirmiyim?

Sürekli aynı rapor formatını kullanacağım için her yazdırmadan önce aktarma yapacağım hücre içeriklerini silmem gerekiyor.

sorunuza cevap alamıyorsanız sorduğunuz soruyu gözden geçiriniz.
şimdi anladığım kadarı ile birşeyler yaptım aşağıdaki kodu denermisiniz.

not:
kayıt edilecek dosyanın konumu belli değil hangi sayfa olduğu belli değil

Private Sub CommandButton1_Click()
x = ListView1.SelectedItem.Index
Sayfa_Adı = "Sayfa1"
yer = "rapor.xls"
Set Klasor = CreateObject("Excel.Application")
Klasor.Workbooks.Open (ThisWorkbook.Path & "\" & yer)
Set Dosya = Klasor.Workbooks(yer).Sheets(Sayfa_Adı)
Dosya.Cells(6, 4) = ListView1.ListItems(x).Text
Dosya.Cells(21, 11) = ListView1.ListItems(x).ListSubItems(1).Text
Klasor.Workbooks(yer).Save
Klasor.Workbooks(yer).Close
Set Klasor = Nothing
Set Dosya = Nothing
MsgBox "işlem tamam"
End Sub

 

[mf.murat]

Halit bey yazdığınız kodlar için teşekkür ederim.
Kodları çalıştırdım.
Aktarma yapmadan önce bu hücreleri daah önceden yapılan aktarmadan kalan bilgileri temizlemek için hangi kodu kullanabilirim.

Dosya.Cells(5, 7).ClearContents

hata veriyor...

 

[halit3]

D6 ve K21 hücreleri için soru soruyorsunuz sonrada G5 hücresi için silme kodunda hata alıyorum diyorsunuz kod doğru
Dosya.Cells(6, 4).ClearContents
Dosya.Cells(21, 11).ClearContents

ama siz kodları mutlaka değiştirirken bir hata yapıyorsunuz.