vb de sayfalar arası veri aktarımı

[yedekkullanıcı]

ekde ki dosyada sayfalar arası veri aktarımı yapmamız mümkünmü form kurucularından yardım larını bekliyorum. şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Dosyanıza olmasını istediğiniz şekli gösteren bir kaç veri yazarak tekrar eklermisiniz.

 

[yedekkullanıcı]

dosya ekte yardımlarınız için teşekkürederi.

 

[yedekkullanıcı]

BENİM DİYER TABLO BİRAZ KARMAŞIKTI SORUYU DEĞİŞTİRİYORUM YARDIMCI OLURSANIZ MEMNUN OLURUM
VB DE BİR SAYFADAN DİYER SAYFAYA VERİ NASIL AKTARILIR.(SAYFA1 A SÜTUNUNU, SAYFA2 A SÜTUNUNA VERİ GİRİŞİ YAPTIKÇA AKTARMA YAPMASI GEREKİYOR.) YARDIMLARINIZI BEKLİYORUM :roll:

 

[yedekkullanıcı]

Bana Yardim Edecek Kİmse Yokmu?

 

[ocamsul]

En basit yolu anladığım kadarıyla böyle. ekteki BAKYE bölümü hariç diğer sayfalarda işlem yaparsanız istediğiniz olacaktır.

 

[yedekkullanıcı]

ocamsul bey çok teşekkür ederim ama benim istediğim bu değildi.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Sheets("sayfa2").Cells(Target.Row, "a") = Target
End Sub

 

[yedekkullanıcı]

Levent bey ilgilendiğiniz için teşekkür ederim vermiş olduğunuz kodu uyguladım elinize sağlık. sizden bir isteğim daha olacak yardımcı olursanız sevinirim.
(sayfa1 a3 hücresini sayfa3 a2 hücresi ile toplayıp sayfa3 a4 hücresine yazdırmamız mümkünm&#252

 

[yedekkullanıcı]

cevap verdiğiniz için teşekkür ederim

 

[yedekkullanıcı]

cevap verdiğiniz için teşekkür ederim
sonuçlar çok güzel sorularımın amacı kodları anlamaya çalışmak
verilen cevaplarda sayfalar arası aktarma yaparken işlem yapan formül yok
ya bulunduğumuz sayfada işlem yapıyor yada
aktarmayı yaptığımız sayfada işlem yapıyor.
yani (Örnek: sayfa3 a2 hücresine= sayfa1 a2 [değer varsa]hücresini sayfa3 a1 le topla ve sayfa2 a2 [değer varsa]hücresini sayfa3 a1 hücresinden çıkar)
böyle birşey olbilirmi?
yardımcı olursanız sevinirim :hihoho:

 

[yedekkullanıcı]

Benim sorumun cevabı yok mu?
Yada basit olduğu içinmi cevap alamadım?

 

[Korhan Ayhan]

Selamlar,

Sayfa3 te iken = işaretini yazıp mouse ile Sayfa1 i seçin A3 hücresini seçip + dedikten sonra yine mouse ile Sayfa3 ü seçin A2 hücresini seçip enter tuşuna basın. İstediğiniz gerçekleşecektir.

 

[Seyit Tiken]

Bu kod sayfa1 deki verileri sayfa2 aktarıyor. Kendinize göre revize edin.

Sub Düğme3_Tıklat()
Sheets("sayfa2").[A65536].End(3).Offset(1, 0) = [A1]
Sheets("sayfa2").[B65536].End(3).Offset(1, 0) = [B1]
End Sub

 

[bkadri]

birde bunu dene

Sub AKTAR()
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")

If [C2] = "" Or [C3] = "" Or [C4] = "" Or [C4] = "" Then GoTo HATA

S2.Select
SON = [A65536].End(3).Select
If ActiveCell.Address = "$A$1" Then
ActiveCell.Offset(1, 0).Select
ActiveCell = 1
Else
ActiveCell.Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
End If

ActiveCell.Offset(0, 1).Value = S1.[C2]
ActiveCell.Offset(0, 2).Value = S1.[C3]
ActiveCell.Offset(0, 3).Value = S1.[C4]
ActiveCell.Offset(0, 4).Value = S1.[C5]
[A1].Select
S1.Select
[C2:C5] = "" , bunları silersen s1 deki bilgileri silmez
[C2].Select
Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
Exit Sub
HATA:
MsgBox "EKSİK BİLGİ GİRİŞİ TESBİT EDİLMİŞTİR." & Chr(10) & "LÜTFEN GİRDİĞİNİZ BİLGİLERİ KONTROL EDİNİZ.", vbCritical, "DİKKAT !"
End Sub
// sayfa1 deki c2c3c4c5 hücrelerindeki verileri sayfa2 deki 1 2 3 ve 4 sütünlara yani A B C D sütunlarına atar her dafasında bir alttaki satıra kopyalar..

 

[nuclearist]

buradaki bilgiler oldukça iyi ancak ben gibi acemi biri buradan cevapları kendine uyarlayamadı. ben üç sütun bilgi kopyalamak istiyorum. sayın leventm bunu bir sütun için yapmış ancak ben üç sütuna dönüştüremedim. yardımcı olursanız sevinirim. teşekkürler.

 

[karagöz1]

üstatlar varken bana düşmez ama birde böyle deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Cells(Target.Row, "a:a") = Target
Sheets("Sayfa2").Cells(Target.Row, "b:b") = Target
Sheets("Sayfa2").Cells(Target.Row, "c:c") = Target
End Sub

:hihoho: