Veri çekerek listeleme yapmak

[mechtab]

Merhabalar ,

Yapmak istediğim veriler sayfasında listeliyeceğim malzemeleri anasayfada listeleme yöntemi ile seçince bana marka seçtirip onun fiyatını getirmesini sağlıyacak birşey istiyorum. Düşeyara ile yapmayı düşündüm ama onunla sadece sütundaki tekrasız veriyi çekebiliyoruz diye bildiğim için başka birşeyde yapamadım.



Örnek dosya : http://s9.dosya.tc/server2/9ris05/Ornek_dosya.xlsx.html

Yardımlarınız için şimdiden teşekkür ederim.

 

[tahsinanarat]

Dosyanız ekte

link
http://s9.dosya.tc/server2/jkq1ut/mechtab2.rar.html

 

[mechtab]

@tahsinanarat Teşekkür ederim. İstediğim gibi olmuş.
Tek birşeyde düzeltme yapabilir miyiz ? ana sayfada yaptığınız uygulamada B sütununda değişiklik yaptığımda C sütununda eski veriler kalıyor. B sütununda değişiklik yaptığımda buradaki ve Birim fiyatın sıfırlanması mümkün mü ?
Değilse de yine çok teşekkür ederim.

 

[tahsinanarat]

ana sayfa'nın kod bölümündeki kodları aşağıdaki kod ile değiştirin

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Bu makro ile B kolonuna yapilacak yeni eklemeler için A kolonuna yeni
'bir numara ekleyecektir.
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
If Left(Target.Offset(0, -1), 1) = "=Row()-1" Then Exit Sub
Target.Offset(0, -1).Formula = "=Row()-3"
    Dim i As Integer
    
    For i = 4 To 15
        If Cells(i, "b") = "" Then
            Cells(i, "C").ClearContents
            Cells(i, "d").ClearContents
        End If
    Next i
End Sub

 

[tahsinanarat]

b sütununda birden fazla hücre silmek isterseniz

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Integer
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Target.Offset(0, -1).Formula = "=Row()-3"
    For i = 4 To 15
        If Cells(i, "b") = "" Then
            Cells(i, "C").ClearContents
            Cells(i, "d").ClearContents
        End If
    Next i
End Sub

 

[mechtab]

@tahsinanarat verdiğin excel çalışıyor. Ben üzerinde bir kaç değişiklik yapmak istediğimde hatalar aldım. Excel kasıp kapanıyor.
"Veriler" sayfasına yeni bir sutun ekledim. Bu sütundaki verileri "Ana sayfa"da gösterebildim. Yazmış olduğun kodu uyarladım (Doğru uyarladığımı varsayıyorum.)
"Anasayfa" da no kısmını eğer ile numara verdirdim çünkü VBA kasıyor gibi geldi ama onla alakası da olmayabilir.
Asıl sorunum ise anasayfada B sütununda boş satırı seçtiğimde listeden C , E yi silmesi lazım hata veriyor. bunu çözemiyorum.

Aşağıda yaptığım düzenlemeyi ekledim.


http://s9.dosya.tc/server2/6chkmv/mechtab2.rar.html


Makine sütunundaki listeden Boş olan satırı seçtiğimde C,D,E,F,G hepsi boş hücre olsun istiyorum.

Tekrar ilgilendiğin için teşekkür ederim.

 

[tahsinanarat]

Fürmülsüz dosyanız ekte

Makrolarla yapmaya çalıştım, dosyanız ekte, inceleyin.
b sütununda hücre veya hücreleri sildiğinizde diğer hücrelerin içeriği siliniyor,
Aslında yeni bir hesaplama için içeriği temizle makrosu eklenip butona bağlanabilir.

Link :
http://s3.dosya.tc/server10/elmtji/mechtab4.rar.html

 

[mechtab]

@tahsinanarat altın üye olmadığım için indiremedim. Bir siteye yükleyebilir misiniz ?

 

[tahsinanarat]

hücreleri boşaltmak için aşağıdaki makroyu kullanabilirsiniz.

Sub temizle()
Application.ScreenUpdating = False
Set s1 = Sheets("ana sayfa")
s1.Range("a4:g15,g16").Select
    Selection.ClearContents
s1.Range("b4").Select
End Sub