-
- Destek
-
Özel Arama
![]() |
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
'kodlar burayagelecek
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
isim = InputBox("Yeni dosya adı giriniz", "Yeni dosyanızın ismi ne olsun")
With Workbooks.Add
For satno = 1 To ListBox1.ListCount
a = ListBox1.List(satno - 1, 0)
b = ListBox1.List(satno - 1, 1)
c = ListBox1.List(satno - 1, 2)
d = ListBox1.List(satno - 1, 3)
Range("A" & satno).Value = a
Range("b" & satno).Value = b
Range("c" & satno).Value = c
Range("d" & satno).Value = d
Next satno
.SaveAs Filename:=isim & ".xls"
End With
End Sub
on error resume next
hakilkan yazdı:Vermiş olduğunuz kodu denedim dediğiniz gibi aktardı , fakat excel üzerine aktardığında metin olanları rakamsal değer olarak görüp 0 getiriyor diğer rakamları para birimi olarak gösteriyor. Value değerlerini text yaptığım anda herhangi bir şey aktarmıyor.
Ozan İLGÜN yazdı:Önce sol tıklayıp satırı seçerseniz sonra sağ tıklayacaksanız olur isterseniz
ozan.ilgun@boun.edu.tr |
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
isim = InputBox("Yeni dosya adı giriniz", "Yeni dosyanızın ismi ne olsun")
If isim = Empty Then Exit Sub
With Workbooks.Add
For satno = 1 To ListBox1.ListCount
a = ListBox1.List(satno - 1, 0)
b = ListBox1.List(satno - 1, 1)
c = ListBox1.List(satno - 1, 2)
d = ListBox1.List(satno - 1, 3)
Range("A" & satno).Value = a
Range("b" & satno).Value = b
Range("c" & satno).Value = c
Range("d" & satno).Value = d
Next satno
.SaveAs Filename:=isim & ".xls"
.Close
End With
End Sub
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir