veri kopyalama,

mehmett

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
Dosyanıza eklediğim aşağıdaki kodlar işinizi görür mü;

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
son = Sheets("VERİ TABANI").[A65536].End(3).Row + 1
r = Target.Row
For i = 1 To 6
Sheets("VERİ TABANI").Cells(son, i) = Sheets("GİRİŞ").Cells(r, i)
Next
End Sub
Not: Sn green71tr

Sorularınızı "Ekteki dosyayı inceleyin" şeklinde değil de, biraz açıklama yaparak sorarsanız daha iyi olur. Böylece soruya ilgi duymayan üyelerin dosyayı boşuna indirmemeleri sağlanmış olur. Veya sorunuza ilgi duyabilecek kişilerin ilgisiz kalmamaları sağlanır.
 
Katılım
6 Eylül 2006
Mesajlar
76
Excel Vers. ve Dili
xp türkçe
Sorularınızı "Ekteki dosyayı inceleyin" şeklinde değil de, biraz açıklama yaparak sorarsanız daha iyi olur. Böylece soruya ilgi duymayan üyelerin dosyayı boşuna indirmemeleri sağlanmış olur. Veya sorunuza ilgi duyabilecek kişilerin ilgisiz kalmamaları sağlanır.
Sayın mehmett üstad,

kesiklikle haklısınız, sizden ve diğer forumdaşlardan özür dilerim.

üstad, benim istediğim daha basit bir makro. veri alanına (stok bilgileri, çek bilgileri, fatura bilgileri vs vs) herhangi bir data girilecek. sonuçlar kullanıcı tarafından onaylandığında veri tabanına gidecek bir kopyalama makrosu benim istediğim. yani copy + paste value... ancak veri tabanındaki en alt satıra ulaşamıyorum. sürekli aynı adrese yapıştırıyor... (aslında 2. satıra insert copy ile kopyalamak bi şekilde işi çözüyor ama işin doğrusu değil tabii ki bu)

vakit ayırabilirseniz sevinirim.

iyi günler,
 

Merhum İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,094
Excel Vers. ve Dili
Excel, 365 - İngilizce
Dosyanız ekte.

Kod:

Sub aktar()

Application.Goto Reference:="alan"
Selection.Copy
Sheets("VERİ TABANI").Select
Range("A1").Select
b = WorksheetFunction.CountA(Sheets("VERİ TABANI").Range("A1:a65536"))
Sheets("VERİ TABANI").Cells(b + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("GİRİŞ").Select
Range("A1").Select
Application.CutCopyMode = False

End Sub
 
Katılım
6 Eylül 2006
Mesajlar
76
Excel Vers. ve Dili
xp türkçe
sayın yurttaş çok teşekkür ederim... elleriniz dert görmesin,
 
Katılım
7 Ağustos 2006
Mesajlar
82
Excel Vers. ve Dili
excel 2003 Türkçe
Benimde bir sorum olacak bu konuyla ilgili. D sürücüsü içerisindeki deneme klasöürünün içerisindeki örnek dosyasında tanımladığım alanı hazırlamış olduğum masa üstündeki bir dosya içerisine nasıl alabiliriz.
 
Üst