Lİsteden SeÇİlen Bİr ÜrÜnÜn Yenİ Bİr Sayfada Lİstelenmesİ

[rood84]

Excel De Yenİ BaŞlayanlardan Bİrİyİm .bİ Konuda Yardima İhtİyacim Var .excelde ÜrÜn Ve Fİyat Lİstesİ OluŞturdum .lİsteden Satilacak ÜrÜn Mİktarini Gİrdİkten Sonra Yenİ Bİr Sayfada ÜrÜn Ve Fİyatnin Lİstelenmesİnİ İstİyorum Bunu Yapmamiz MÜmkÜnse Yardimlarinizi Beklİyorum .

 

[Orion1]

Örnek dosya üzerinde açıklama ekleyip anlatırsanız ne yapmak istediğizi dağa rahat anlama olanığı olacaktır.Mesela şu hücreye yazdığım değer şu sayfada şurada listelensin gibi.

 

[rood84]

Lİstede Kİ Mavİ Olan Kutucuklara KaÇ Adet ÜrÜnÜn Satin AlinacaĞi .yanİ ÜrÜn Mİktari Gİrİlİyor O Kadar .mavİ KutucuĞa Sayi Gİrİldİkten Sonra Mavİ KutusuĞun OlduĞu SÜtundakİ ÜrÜn Ve Fİyatinin Herhangİbİr Yenİ BoŞ Bİr Sayfada Lİstelenmesİnİ Yapmak İstİyoruz .yenİ Sayfada ÜrÜnÜn Adi Ve Fİyati Olacak Sadec Olay Bundan İbaret

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Target.Interior.ColorIndex = 33 Then
    sat = Sheets("Veri_Tabanı").Cells(65536, "A").End(xlUp).Row + 1
    Sheets("Veri_Tabanı").Cells(sat, "D").Value = Target.Value
    Sheets("Veri_Tabanı").Cells(sat, "C").Value = Target.Offset(0, -1).Value
    Sheets("Veri_Tabanı").Cells(sat, "B").Value = Target.Offset(0, -5).Value
    Sheets("Veri_Tabanı").Cells(sat, "A").Value = ActiveSheet.Name
End If
hata:
End Sub

 

[rood84]

sayın orion hocam bu kodu nasıl uygulayıp nasıl çalıştıracağım . ufak bi dipnot eklerseniz sevinirim

 

[Orion1]

sayın orion hocam bu kodu nasıl uygulayıp nasıl çalıştıracağım . ufak bi dipnot eklerseniz sevinirim

Ben zaten bu kodu ekli dosyada gerekli yere yazdım.
Siz sadece Mavi alanlara veri giriniz.O Otomatikman Veri_Tabanı Dosyasına atar.

 

[rood84]

çok teşekkürler hocam.yardımlarınız için.

 

[Orion1]

çok teşekkürler hocam.yardımlarınız için.

Rica ederim.
İyi çalışmalar.

 

[rood84]

Hocam Sİzden Son Bİ İsteĞİm Olacak Bu YaptiĞiniz Tam İstedİĞİm .gİbİ Ancak Bİ Sorun Var.ben Bu Lİstelemeyİ Örnektekİ Kolon Yada İÇ Tesİsat Sekmesİ İÇİn DeĞİlde TÜm Malzemeler Sekmesİ İÇİn Nasil Yapabİlİrİz Bu Nu BaŞarabİlİrsek Tam SÜper Olacak .yardiminiz İÇİn Tekrar TeŞekkÜrler

 

[Orion1]

Hocam Sİzden Son Bİ İsteĞİm Olacak Bu YaptiĞiniz Tam İstedİĞİm .gİbİ Ancak Bİ Sorun Var.ben Bu Lİstelemeyİ Örnektekİ Kolon Yada İÇ Tesİsat Sekmesİ İÇİn DeĞİlde TÜm Malzemeler Sekmesİ İÇİn Nasil Yapabİlİrİz Bu Nu BaŞarabİlİrsek Tam SÜper Olacak .yardiminiz İÇİn Tekrar TeŞekkÜrler

İtediğiniz düzenlemeyi yaptım.
4 nolu mesajdan dosyayı indirebilirsiniz.

 

[rood84]

size minnettarım hocam çokteşekkürler ellerinize sağlık.bu tür formülleri yazabilmek için ;excel formüller ve makrolar mı yoksa profesyonel excel çözümleri kitabını mı tavsiye edersiniz hocam kitap almaya karar verdim .ama hangisi .tavsiyeniz olursa memnun olurum .ha bu arada acemi olduğumu unutmayalım ....

 

[Orion1]

size minnettarım hocam çokteşekkürler ellerinize sağlık.bu tür formülleri yazabilmek için ;excel formüller ve makrolar mı yoksa profesyonel excel çözümleri kitabını mı tavsiye edersiniz hocam kitap almaya karar verdim .ama hangisi .tavsiyeniz olursa memnun olurum .ha bu arada acemi olduğumu unutmayalım ....

Başlangıç için excel formüller ve makrolar fena değil.
Kolay gelsin.