Sütunları diğer sayfaya aktarma...

[manly]

İstenilen Sütunları diğer sayfaya aktarma...

EK'te gönderdiğim dosyada MENÜ butonuna tıkladığımız da CommandButon134 tıkladığımızda,
Sipariş sayfasındaki sarı renkli sütun başlıklarının bulunduğu sütunları EMEL sayfasındaki ilgili başlıklara aktarılmasını istiyorum. Kod yazmaya çalıştım ama bir sorun var sanırım...

 

[muygun]

Merhaba;

Kayıt adlı Userform'da CommandButton134 butonuna;

Private Sub CommandButton134_Click()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Emel")
sonsatir = s1.Range("A65536").End(xlUp).Row + 1
s1.Cells(sonsatir, 1) = sonsatir - 1
s1.Cells(sonsatir, 2) = ComboBox01

Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

kodlarını uygulayın.

Not: 1 ve 2. sütuna ait olduğunu düşündüğüm verileri ;

s1.Cells(sonsatir, 1) = sonsatir - 1
s1.Cells(sonsatir, 2) = ComboBox01

İle 1.sütuna sıra no, 2. sütuna ComboBox01 verisini yazdırdım. Ama diğer başlıkları bulamadığım için işlem yapmadım. (siz bu satırın altına ilgili kodları yerleştirirsiniz)

İyi çalışmalar.

 

[manly]

Merhaba;

Kayıt adlı Userform'da CommandButton134 butonuna;

Private Sub CommandButton134_Click()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Emel")
sonsatir = s1.Range("A65536").End(xlUp).Row + 1
s1.Cells(sonsatir, 1) = sonsatir - 1
s1.Cells(sonsatir, 2) = ComboBox01

Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

kodlarını uygulayın.

Not: 1 ve 2. sütuna ait olduğunu düşündüğüm verileri ;

s1.Cells(sonsatir, 1) = sonsatir - 1
s1.Cells(sonsatir, 2) = ComboBox01

İle 1.sütuna sıra no, 2. sütuna ComboBox01 verisini yazdırdım. Ama diğer başlıkları bulamadığım için işlem yapmadım. (siz bu satırın altına ilgili kodları yerleştirirsiniz)

İyi çalışmalar.

Hocam ilginize teşekkür ederim. Benim istediğim,

Sipariş sayfasındaki sarı renkli sütunlara gelen satır verilerini EMEL sayfasındaki aynı başlıklara aktarılmasını istiyorum.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Not:Aktarma işleminde sipariş no baz alındı.

Kodlar ;
Seçilen sipariş no Emel sayfasında var ise bulduğu satırdaki verilerin üzerine yazılacak , yok ise en son boş satıra kayıt yapacaktır.

 

[manly]

Hocam ben baz alinacak birsey istemiyorum. Siparis sayfasindaki verilerin emel sayfasina birebir aktarilmasini istiyorum

 

[muygun]

Merhaba;
Aşağıdaki kodları userformda bir butona yada sayfada bir butona bağlayarak deneyin.

Sub kaydet()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sipariş")
Set s2 = ThisWorkbook.Worksheets("Emel")
For i = 3 To s1.Range("c65536").End(xlUp).Row
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
For k = 1 To 31
s2.Cells(sonsatir, k) = s1.Cells(i, s2.Cells(1, k))
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

İyi çalışmalar.

 

[manly]

Aktarma olmadı hocam...

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[manly]

Teşekkür ederim hocam ellerinize sağlık...

 

[manly]

Hocam Emel sayfasina verileri attiktan sonra baska bir butona kod yazarak hucreleri silebilirmiyiz...

 

[muygun]

Merhaba;

sub sil()
Sheets("Sipariş").Range("a3:az65536").ClearContents
end sub

İle sipariş sayfasının A3 : AZ65536 aralığını silersiniz. (siz sayfa adı yada silme aralığını kendinize göre düzenleyin)

İyi çalışmalar.

 

[manly]

Allah razi olsun hocam...