Arkadaşlar her ne kadar uğraşsamda veri aktarımı yapamadım. Ürün kayıt sayfasındaki verileri işaretleme kutucuğu işaretlenen satırdaki veriler buton yardımıyla zimmet senedi sayfasına aktarmak istiyorum . Yardımlarınızı bekliyorum. Teşekkürler...
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
veri aktarma
- Konbuyu başlatan ilhaan
- Başlangıç tarihi
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Kod
Kod:
Sub aktar()
sat = 9
Set s1 = Sheets("ÜRÜN KAYIT")
Set s2 = Sheets("ZİMMET SENEDİ")
Dim Picture As Object
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "CheckBox" Then
If s1.Shapes(Picture.Name).OLEFormat.Object = 1 Then
satir = Picture.BottomRightCell.Row - 1
s2.Cells(sat, "C").Value = s1.Cells(satir, "P").Value
s2.Cells(sat, "D").Value = s1.Cells(satir, "R").Value
s2.Cells(sat, "E").Value = s1.Cells(satir, "D").Value
s2.Cells(sat, "F").Value = s1.Cells(satir, "F").Value
s2.Cells(sat, "G").Value = s1.Cells(satir, "H").Value
s2.Cells(sat, "H").Value = s1.Cells(satir, "J").Value
s2.Cells(sat, "I").Value = s1.Cells(satir, "L").Value
s2.Cells(sat, "J").Value = s1.Cells(satir, "N").Value
sat = sat + 1
End If
End If
Next Picture
MsgBox "işlem tamam"
End Sub- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
iyi çalışmalar