telefon giriş ve cıkış stok program yardım

[tarikgsm2@hotmail.com]

TELEFON SATIŞI STOK KONTROLU cihaz stok sayfasında G HUCRESİ STOKTA VE SATILDI OLARAK MEVCUT CIKIŞ İŞLEMİ SATILDI OLARAK SECTİGİMDE OTOMATİK BU SAYFADAN DİGER SAYFAYA SIRALI OLARAK TAŞIMAK MÜMKÜNMÜ yardımcı olabilecek varmı

 

[çıtır]

Her iki sayfanın başına gizli bir sütun açarak düşey ara veya dizi formülü ile yapabilirsiniz.

 

[mzsakall]

Bana yardım ed3r misiniz .com önemli otomatik pdf yapma diye sorum var lütfen yardımcı olun

 

[tarikgsm2@hotmail.com]

Her iki sayfanın başına gizli bir sütun açarak düşey ara veya dizi formülü ile yapabilirsiniz.

yardımcı olabilirmisiniz acaba

 

[TanerSaydam]

Sayfa2'ye bir buton ekle ve aşağıdaki kodları yapıştır. Bunu WorkSheets_Change özelliğine de uygulayabilirsin biraz uğraşarak.

Eğer formülle yapayım diyorsan onu bilmiyorum. Makro kodundan hiç anlamıyorsan eğer;

Excel'i "Makrolu Çalışma Kitabı" olarak farklı kaydet. Sonra Dosya>Özellikler'den Geliştirici sekmesini aktif et (Bunu nette araştırıp kolayca bulabilirsin. Versiyonlar arası farklılık olduğundan tanım yapmadım). Geliştirici sekmesinden Tasarım Modu>ActiveXDenetimli Buton Ekle. Butona çift tıkla açılan yere kodları yapıştır. Butonu sağ tıklayıp özellikler diyerek ismini vb. özelliklerini değiştirebilirsin.

Kodlara tekrar ulaşmak istersen Alt+F11 tuşuna basman yeterli.

son = Range("D" & Rows.Count).End(3).Row
For a = 2 To son
If Range("G" & a) = "SATILDI" Then
son1 = Sayfa3.Range("D" & Rows.Count).End(3).Row + 1
Sayfa3.Range("A" & son1) = Sayfa2.Range("A" & a)
Sayfa3.Range("B" & son1) = Sayfa2.Range("B" & a)
Sayfa3.Range("C" & son1) = Sayfa2.Range("C" & a)
Sayfa3.Range("D" & son1) = Sayfa2.Range("D" & a)
Sayfa3.Range("E" & son1) = Sayfa2.Range("E" & a)
Sayfa3.Range("F" & son1) = Sayfa2.Range("F" & a)
Sayfa3.Range("G" & son1) = Sayfa2.Range("G" & a)
Sayfa3.Range("H" & son1) = Sayfa2.Range("H" & a)
Sayfa3.Range("I" & son1) = Sayfa2.Range("I" & a)
Sayfa3.Range("J" & son1) = Sayfa2.Range("J" & a)
Sayfa3.Range("K" & son1) = Sayfa2.Range("K" & a)
Sayfa3.Range("L" & son1) = Sayfa2.Range("L" & a)
Sayfa3.Range("M" & son1) = Sayfa2.Range("M" & a)
Range("A" & a).EntireRow.Delete
End If
Next a
MsgBox "İşlem başarıyla tamamlanmıştır.", vbOKOnly + vbInformation, "BAŞARILI"

 

[tarikgsm2@hotmail.com]

teşekkur ederim istedigim gibi olmuş ellerinize saglık