ilgili sayfaya aktar

[Fuat Şirin]

sorum şu;

bir satış formu hazırlıyorum

bunda

b1 hücresinde Firma Adı yazıyor

istediğim b1 hücresinde hangi firma ismi yazıyorsa

a8 ile g500 arsı tüm değerleri
firma ismi yazan sheete aktarması
yani yaptığım satışlar satın alanın sheetine geçsin saygılar şimdiden

 

[Skorpiyon]

Sayın Parlemenn,

Örnek bir dosya ekler misiniz.

 

[Fuat Şirin]

dosya ektedir

hocam dosyayı ekledim

 

[Ayhan Ercan]

Merhaba sn parlemenn

Aşağıdaki kodu bir düğmeye atayarak deneyiniz..

Sub aktar()
son = Sheets("SATIŞ").[a65536].End(3).Row
For i = 8 To son
 Sheets("SATIŞ").Range("A" & i & ":G" & i).Cut Sheets(Sheets("SATIŞ").Range("b1").Value).Range("A" & i & ":G" & i)
Next
End Sub

 

[Fuat Şirin]

hocam süperde müşteri sayfasındaki eski kaydı silmeden
son dolu satırdan itibaren aktarsa
tam süper olur

 

[Ayhan Ercan]

Tekrar Merhaba

Sub aktar()
son = Sheets("SATIŞ").[a65536].End(3).Row
For i = 8 To son
 Sheets("SATIŞ").Range("A" & i & ":G" & i).Cut _
 Sheets(Sheets("SATIŞ").Range("b1").Value).Range("A" & Sheets(Sheets("SATIŞ").Range("b1").Value) _
 .[a65536].End(3).Row + 1 & ":G" & Sheets(Sheets("SATIŞ").Range("b1").Value).[a65536].End(3).Row + 1)
Next
End Sub