cari hesap oluşturma

[steve]

arkadaşlar merhaba excelde baya bi yeniyim
cari hesap oluşturmak istiyorum ama araştırmama rağmen yapamadım bi el atarsanız sevinirim şimdiden teşekkürler..

 

[steve]

yardım edebilecek birisi yok mu acaba?

 

[steve]

yardım lütfen...

 

[Mahir64]

Ne yapılacağını yazsaydınız!

 

[steve]

yapmak istediğin kasa defterindeki satıcı sütunundaki yazdığım isimlerin ayrı ayrı sayfada göstermek istiyorum

 

[Mahir64]

Merhaba
Bunu satıcı kısmına girilen isimleri otomatikmi atmasını istiyorsunuz.

Yoksa
Yeteri kadar sayfa açın şablonu sayfalara aktarın.

 

[steve]

yapmak istediğim satıcı ismi yazdığım zaman satıcının yaptığı işlemrin o sayfaya gitmesini istiyorum örnek olarak yaptım ama...

 

[steve]

yardım lütfen...

 

[steve]

güncel....

 

[Vedat Özer]

Selamlar,


Ekdeki dosyayı inceleyin.


Umarım istediğiniz gibi olmuştur.

 

[Vedat Özer]

Selamlar,


Eğer yukardaki vermiş oldugum formüller istediğinizi karlışıyosa doğruysa yani,

Makrolu çözümüde ekdeki dosyada,

Sub aktar()
Selection.AutoFilter Field:=2, Criteria1:="MEHMET"
Range("A3:E5000").Select
Selection.Copy
Sheets("MEHMET").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A44").Select
Sheets("hesap").Select
Range("B20").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=2, Criteria1:="AHMET"
Range("A4:E5000").Select
Selection.Copy
Sheets("AHMET").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B17").Select
Sheets("hesap").Select
Range("B15:B16").Select
Range("B16").Activate
Application.CutCopyMode = False
Selection.AutoFilter Field:=2
Range("F1").Select
End Sub

 

[steve]

istediğim buydu teşekkürler...

 

[Vedat Özer]

Rica Ederim.

İyi çalışmalar dilerim.