Veri aktar

[berkan1]

kodda taşıma yapıyor ama sayfadaki önceki bilgileri siliyor kodun neresin de ne gibi bir degişik yapmalıyım.ilgilendiginiz için teşekkür ederim.

Private Sub CommandButton19_Click()
say8 = 0
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems.Item(i).Checked = True Then
say8 = 1
End If
Next i

If say8 = 0 Then
MsgBox "hiç seçim yapmadınız."
Exit Sub
End If


yer = atanacak.Text
If OptionButton5.Value = True Then
Sheets(yer).Cells.ClearContents
End If
If yer = "" Then
MsgBox "aktarılacak sayfa seçimini yapmadınız"
Exit Sub
End If
On Error Resume Next
Application.ScreenUpdating = False
sat = sutt2
For r = 1 To Val(ListView1.ColumnHeaders.Count) 'Başlık için dönüyor+
Sheets(yer).Cells(sutt1, r).Value = ListView1.ColumnHeaders(r + 1).Text
Sheets(yer).Cells(sutt1, r).Font.Bold = True
Next r
For i = 1 To Me.ListView1.ListItems.Count 'Sıra numarası için dönüyor
If Me.ListView1.ListItems(i).Checked = True Then
For j = 1 To Val(ListView1.ColumnHeaders.Count) - 1 'Ayrıntı için dönüyor


If IsNumeric(ListView1.ListItems(i).ListSubItems(j).Text) = True Then
If Len(ListView1.ListItems(i).ListSubItems(j).Text) = 10 Then
If IsDate(ListView1.ListItems(i).ListSubItems(j).Text) = True Then
Sheets(yer).Cells(sat, j).Value = ListView1.ListItems(i).ListSubItems(j).Text
Else
Sheets(yer).Cells(sat, j).Value = ListView1.ListItems(i).ListSubItems(j).Text * 1
End If
Else
Sheets(yer).Cells(sat, j).Value = ListView1.ListItems(i).ListSubItems(j).Text * 1
End If
Else
Sheets(yer).Cells(sat, j).Value = ListView1.ListItems(i).ListSubItems(j).Text
End If

'Sheets(yer).Cells(sat, j).Value = ListView1.ListItems(i).ListSubItems(j).Text 'Ayrıntı
Next j
sat = sat + 1
End If
Next i
Application.ScreenUpdating = True
MsgBox "toplam " & sat - 2 & " satır aktarım yapıldı"

ListView1.SetFocus
ListView1.ListItems(ListView1.SelectedItem.Index).Selected = True
ListView1.ListItems(ListView1.SelectedItem.Index).EnsureVisible


End Sub

 

[Necdet]

Merhaba,

If OptionButton5.Value = True Then
Sheets(yer).Cells.ClearContents
End If


OptionButton5 seçili ise tüm bilgileri siliyor.
seçili olmazsa silmeyecek

 

[halit3]

kodda taşıma yapıyor ama sayfadaki önceki bilgileri siliyor kodun neresin de ne gibi bir degişik yapmalıyım.ilgilendiginiz için teşekkür ederim.

Ben sizin sorularınızı genelde hepsini okuyorum.
Ama sorularınızı anlıyamıyorum.
Burada (sorunuz ney?)
Necdet beyi silme işlemini, iptal etmeye gönelik vermiş cevabı

Sizin sorunuzda ne istediğiniz hiç belli değil.?

Eğer silme işlemini iptal etmek istiyorsanız sorunuz şöyle olmalıydı
(kodda taşıma yapıyor ama sayfadaki önceki bilgileri siliyor kodun neresin de ne gibi bir degişik yapmalıyım ki silme işlemini iptal etsin)
Diğer taraftan silme işlemini iptal ettirmek istemiyorsanız sorunuzu sorarken ne istediğinizi kendinizin anlıyacağı gibi değil başkalarının anlıyacağı biçimde sorarsanız cevap alma imkanınız daha çabuk olacaktır.

 

[berkan1]

Necdet bey teşekkür ederim ve Halit beyin cevabını da ayrıntılı bir biçimde anladım bana demek istediklerini .Şİmdi bulma konusun da sıkıntım var data sayfasın da bulması için işlem yapıyorum .ben Korhan beyin çalışmalarında otomatik tamamlama Userformu buldum onu kendi dosyama entegre etmek istiyorum .incelemeniz mümkün olursa linkini ekliyorum yardımcı olabilirseniz sevinirim .
http://www.excel.web.tr/f135/hucrede-otomatik-tamamlama-t112308/sayfa2.html#post649100