sayfa1 den sayfa2'ye

[muhammethezer]

Merhaba;Siparişler isimli bir saysam var ve sayfaya günlük olarak yapılan ve yapılacak olan işler giriliyor.Yapmak istediğim kısaca "koşullu biçimlendirme" ile "=$K1="ÜRETİLDİ" yazısı hücrede belirtildiği zaman "ÜRETİLDİ" YAZAN hücrenin "SİPARİŞLER2" isimli sayfanın son satırına eklenmesi.Yardımlarınız için teşekkür ederim.

 

[Recep İpek]

...zaman "ÜRETİLDİ" YAZAN hücrenin "SİPARİŞLER2" isimli sayfanın son satırına eklenmesi...

Peki aktarılan kayıtların "SİPARİŞLER" sayfasından silinmesi gerekiyor mu?

 

[muhammethezer]

Evet Sayin Rİpek , Sayfada O Üretİm İle İlgİlİ Bİlgİ Kalmamasi Gerkİyor.

 

[conari]

örnek dosya eklermisiniz?

 

[muhammethezer]

İstediginiz dosya ektedir.

 

[Recep İpek]

Ekli örneği inceleyiniz.

 

[muhammethezer]

merhaba sayın ripek örnek program işimi gördü fakat ben sayfada sipariş numarasınıda almak istiyorum yani "a" sütuundakiverilerde alım,nmalı .Kodlarda nasıl bir değişiklik yapmak gerekli acaba

 

[Recep İpek]

A kolonunuda aktarmak istiyorsanız kırmızı ile belirtilen kolon sayılarını kendinize göre uyarlayabilirsiniz.
(Burada siz 1 yapacaksınız)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [k2:k100]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target.Value = "ÜRETİLDİ" Then
Set s1 = Sheets("siparişler")
Set s2 = Sheets("siparişler2")
sat = s2.[b65536].End(3).Row + 1
sno = s1.Cells(Target.Row, "g").Value
s2.Range(s2.Cells(sat, [color=red][b]2[/b][/color]), s2.Cells(sat, 11)).Value = s1.Range(s1.Cells(Target.Row, [color=red][b]2[/b][/color]), s1.Cells(Target.Row, 11)).Value
Application.EnableEvents = False
Target.EntireRow.Delete Shift:=xlUp
Application.EnableEvents = True
Set s1 = Nothing
Set s2 = Nothing
MsgBox sno & " Nolu Sipariş Sipariş2 Sayfasına Aktarıldı.", vbInformation + vbDefaultButton1 + vbOKOnly, "UYARI"
[h2].Select
End If
End Sub