Bir Sayfadaki Bilgileri Diğerine Kaydetme

[hmydante]

Merhabalar arkadaşlar

Benim sorunum firma kaydı yaptığım ekrandaki bilgileri kaydet tuşuna basarak firma listesine aktarmak

bununla ilgili birçok çalışma var tabi ki. bilen arkadaşlar yardımcı olmuşlar sürekli.

siteden de bununla ilgili bi çalışma buldum fakat VİSUAL BASİC bilmediğim için işin içinden çıkamadım tabi ki

Birçok arkadaşımıza bunun lazım olduğunu düşünüyorum.

Yardım edeceğinize eminim ama bana ve benden sonraki arkadaşlara yardımcı olmak için bu çalışmadaki visual basic kodlarının ne anlama geldiğini ufak bi açıklamayla anlatabilirseniz gerçekten çok sevinirim

Böylelikle bunları ben ve diğer bilmeyen arkadaşlarım çalışmalarımıza rahatlıkla ekleyebiliriz...

İlginiz için şimdiden teşekkürler :hihoho:

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Set s1 = Sheets("Müşteriler")
Set s2 = Sheets("Kayıt Giriş")
For Each bak In s1.Range("b3:h3")
For Each bak1 In s2.Range("b1:b7")
If bak.Value = bak1.Value Then
bak1.Offset(0, 1).Copy
say = WorksheetFunction.CountA(s1.[h2:h65536]) + 1
bak(say).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu deneyebilirsiniz. Bayağı hızlıdır.

Sub Düğme1_Tıklat()
Sayfa1.[B65000].End(3).Offset(1) = Sayfa2.[C1]
Sayfa1.[C65000].End(3).Offset(1) = Sayfa2.[C2]
Sayfa1.[D65000].End(3).Offset(1) = Sayfa2.[C3]
Sayfa1.[E65000].End(3).Offset(1) = Sayfa2.[C4]
Sayfa1.[F65000].End(3).Offset(1) = Sayfa2.[C5]
Sayfa1.[G65000].End(3).Offset(1) = Sayfa2.[C6]
Sayfa1.[H65000].End(3).Offset(1) = Sayfa2.[C7]
MsgBox "Veri Aktarıldı"
Sayfa2.[C1:C7] = ""
Sayfa2.[C1].Select
End Sub

 

[hmydante]

Çok teşekkürler arkadaşlar walla çok makbule geçti... Ellerinize parmaklarınıza sağlık...

 

[hmydante]

Seyit kardeş
senin verdiğin kodlamalar çok işime yaradı. sağollll...

ekte hazırlamış olduğum excel çalışması var...
çalışmamdaki eksiklik...
fatura kesim ekranından bilgileri kaydetmeyi ekledim.

son olarak fatura tutarını firma listesinde SEÇİLEN ŞAHSA GÖRE BORÇ TUTARINI TOPLAYARAK AKTARMASI. YANİ HER KAYIT TUŞUNA BASTIĞIMIZDA BİR ÖNCEKİ BORCUNA GÖRE TOPLAMA YAPSIN

BİRDE KESİLEN ÜRÜNLERE GÖRE ÖRNEĞİN HERHANGİ BİR ÜRÜNDEN 5 ADET KESİLDİ FATURA DÜZENLE TUŞUNA BASILDIĞINDA. yada başka extra bir tuşta eklenebilir... ürün adetinin stok kartından ilgili mal kaleminden düşmesini istiyorum.

WALLA SENİ BİRAZ UĞRAŞTIRICAZ AMA YARDIMCI OLABİLİRSEN ÇOK SEVİNİRİM...

daha önceki açıklamandaki gibi kolay ve kullanabileceğim basitlikte olursa. diğer çalışmalarımada ekleyebilirim...

 

[hmydante]

arkadaşlar...

borç tutarı firmalara göre ayrı sayfalara da aktarma yapılabilir...
örneğin x firması
fatura tarihi fatura tutarı vs.
31.05.2007 20.00
06.06.2007 30.00
07.06.2007 15.00


toplam borç 65.00

y firması
fatura tarihi
28.05.2007 15.00

aynı şekilde stok kalemleri de. stok kartında 15 varsa yanına farklı bi sütuna çıkış yapılan stok kalemi eksi olarak eklenip otomatik olarak başka sütuna eklensede olur

örneğin

stok kartı stok miktarı stok çıkışı stokta kalan
x ürünü 15 10 5

vb..

yardımcı olabilirseniz gerçekten çok sevinirim.