çalışma sayfasındaki verileri sınıflandırmak

[kaptankirk]

giriş çalışma sayfasındaki verileri ayrı ayrı sayfalara sınıflandırmak istiyorum nasıl yapabilirim örnek dosya

 

[Huseyinkis]

ekteki kodları denermisiniz.

Sub taşı()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
sonsat = Sheets(Cells(i, 2).Value).Cells(Rows.Count, 1).End(3).Row + 1
Range("A" & i & ":J" & i).Copy Destination:=Sheets(Cells(i, 2).Value).Range("A" & sonsat & ":J" & sonsat)
Next i
End Sub

 

[kaptankirk]

kodları nasıl deneyeceğim yardım ederseniz sevinirim

 

[Huseyinkis]

kodları nasıl deneyeceğim yardım ederseniz sevinirim

Merhaba ekteki dosyada blunan butona tıkladığınızda diğer sayfaara verileri yazacaktır.

Kodları gormek için Alt+F11 tusuna basarak kodları gorebilirsiniz.

Birde Excel VBA (Visual Basic Application) nasıl kullanılır diye Google dan arama yaparsanız Video dersler bulabilirsiniz sizin için yardımcı olacakatır.

 

[kaptankirk]

eline sağlık

hocam butona bastığımda aktarıyor fakat tekrar bastığımda ikinci sefer de kopyalayarak aktarıyor işlemi iki sefer aktarıyo
aktarılan işlemi bir daha aktarmasa olmaz mı

şimdiden teşekkürler

 

[Huseyinkis]

eline sağlık

hocam butona bastığımda aktarıyor fakat tekrar bastığımda ikinci sefer de kopyalayarak aktarıyor işlemi iki sefer aktarıyo
aktarılan işlemi bir daha aktarmasa olmaz mı

şimdiden teşekkürler

Ekte 2 adet kod ekliyrum 1 kod hücrenin yanına aktarıldı yazar ve bir daha aktarmaz.


2 kod ise girişler sayfası hariç tüm sayfaları temizler ve tekrar aktarır.

Sub taşı()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
sonsat = Sheets(Cells(i, 2).Value).Cells(Rows.Count, 1).End(3).Row + 1
If Cells(i, 11).Value <> "Aktarıldı" Then
Cells(i, 11).Value = "Aktarıldı"
Range("A" & i & ":J" & i).Copy Destination:=Sheets(Cells(i, 2).Value).Range("A" & sonsat & ":J" & sonsat)
End If
Next i
End Sub






Sub taşı2()
For a = 2 To Sheets.Count
Sheets(a).Range("A2:A65536").ClearContents
Next
For i = 2 To Cells(Rows.Count, 1).End(3).Row
sonsat = Sheets(Cells(i, 2).Value).Cells(Rows.Count, 1).End(3).Row + 1
Range("A" & i & ":J" & i).Copy Destination:=Sheets(Cells(i, 2).Value).Range("A" & sonsat & ":J" & sonsat)
Next i
End Sub

 

[kaptankirk]

verileri sınıflandırmak

hocam ekteki dosyada üretim ve satış diye çalışma sayfaları var

üretim sayfasındaki açıklama kısmında veriyi ayrı ayrı aktarmak taşımak istiyorum
aynı şekilde satış sayfasındakileri de

bu iki çalışma sayfasında bulunan üretim kodlarını da ayrı ayrı sınıflandırmak taşımak istiyorum

bana yardımcı olursanız sevinirim