Arkadaşlar benim yapmak istedeiğim şey 2 tane çalışma kitabım var. "ÖDEME EMRİ ECZANE" adlı kitabın ana sayfasındaki Fatura No,Tarih ve Tutarı kısımlarını çift tıklama ile"ECZANE LİSTESİ" adlı kitaptaki "LİSTE"yazan sayfaya aktarmak istiyorum. Normalde aynı çalışma kitabındaki liste yazan yere aktarma yapabiliyorum.Yukarıdada belirttiğim gibi ben çalışma kitabına veri aktarmak istiyorum. Yardımcı olursanız sevinirim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Çalışma Kitabından Çalışma Kiatabına beri aktarma
- Konbuyu başlatan msinan987
- Başlangıç tarihi
Dosyayı açıptamı kaydeticeksiniz.Yoksa kapalı dosyayamı kayıt yapacaksınız?
Farketmez. Aktarma yapsında nasıl olursa olsun. Sonuçta liste hazırlansın. İster açıkken ister kapalı iken aktarma yapsın.
Son düzenleme:
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Dosyanız ektedir.
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [G3:I15]) Is Nothing Then Exit Sub
Cancel = True
If Cells(Target.Row, "G").Value = "" Then Exit Sub
If Workbooks.Open(ThisWorkbook.Path & "\ECZANE L˜STE.xls").ReadOnly = True Then
Workbooks("ECZANE L˜STE.xls").Close
End If
sat = Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Cells(65536, "C").End(xlUp).Row + 1
If sat >= 65533 Then
MsgBox "Diğer dosyadaki Liste sayfasında satır doldu." & vbLf & "Kayıt yapılmadı.", vbCritical, "UYARI"
Workbooks("ECZANE L˜STE.xls").Close
Exit Sub
End If
Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Range("C" & sat & _
":E" & sat).Value = Range("G" & Target.Row & ":I" & Target.Row).Value
Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Range("F" & sat).Value _
= Range("D3").Value
Workbooks("ECZANE L˜STE.xls").Close True
MsgBox "Kayıt Başarı ile girildi." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Dosyanız ektedir.
[Kod:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [G3:I15]) Is Nothing Then Exit Sub Cancel = True If Cells(Target.Row, "G").Value = "" Then Exit Sub If Workbooks.Open(ThisWorkbook.Path & "\ECZANE L˜STE.xls").ReadOnly = True Then Workbooks("ECZANE L˜STE.xls").Close End If sat = Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Cells(65536, "C").End(xlUp).Row + 1 If sat >= 65533 Then MsgBox "Diğer dosyadaki Liste sayfasında satır doldu." & vbLf & "Kayıt yapılmadı.", vbCritical, "UYARI" Workbooks("ECZANE L˜STE.xls").Close Exit Sub End If Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Range("C" & sat & _ ":E" & sat).Value = Range("G" & Target.Row & ":I" & Target.Row).Value Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Range("F" & sat).Value _ = Range("D3").Value Workbooks("ECZANE L˜STE.xls").Close True MsgBox "Kayıt Başarı ile girildi." & vbLf & _ vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N" End Sub
Arkadaşım göndermiş olduğun dosyada bir sorunla karşılaştım. Liste dolduğunda listeyi temizlemek zorunda kalıyorum. Yeni veri girdiğimde sıra numaraları otomatik atmıyor.Listeyi silmeden önce otomatik numaralar atıyordu. yardımcı olursan sevinirim.
Dosyanız ektedir.
[Kod:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [G3:I15]) Is Nothing Then Exit Sub Cancel = True If Cells(Target.Row, "G").Value = "" Then Exit Sub If Workbooks.Open(ThisWorkbook.Path & "\ECZANE L˜STE.xls").ReadOnly = True Then Workbooks("ECZANE L˜STE.xls").Close End If sat = Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Cells(65536, "C").End(xlUp).Row + 1 If sat >= 65533 Then MsgBox "Diğer dosyadaki Liste sayfasında satır doldu." & vbLf & "Kayıt yapılmadı.", vbCritical, "UYARI" Workbooks("ECZANE L˜STE.xls").Close Exit Sub End If Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Range("C" & sat & _ ":E" & sat).Value = Range("G" & Target.Row & ":I" & Target.Row).Value Workbooks("ECZANE L˜STE.xls").Sheets("LİSTE").Range("F" & sat).Value _ = Range("D3").Value Workbooks("ECZANE L˜STE.xls").Close True MsgBox "Kayıt Başarı ile girildi." & vbLf & _ vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N" End Sub
Arkadaşım göndermiş olduğun dosyada bir sorunla karşılaştım. Liste dolduğunda listeyi temizlemek zorunda kalıyorum. Yeni veri girdiğimde sıra numaraları otomatik atmıyor.Listeyi silmeden önce otomatik numaralar atıyordu. yardımcı olursan sevinirim.
Arkadaşlar yardımlarınızı esirgemeyiniz. sorduğum soruya cevap yazarsanız sevinirim