veri kopyalama,

[green71tr]

ekteki dosyayı incelerseniz sevinirim...

iyi günler,

 

[mehmett]

Dosyanıza eklediğim aşağıdaki kodlar işinizi görür mü;

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.

 

[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.

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]

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

 

[green71tr]

sayın yurttaş çok teşekkür ederim... elleriniz dert görmesin,

 

[serdarca]

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.