1. sayfadaki çoklu verileri , 2.sayfaya aktarma.

[sozzy1905]

http://dosya.co/bg8z7odkk4xl/FİYAT.xls.html

arkadaşlar, linkte paylaştığım dosyasın 1. sayfasında ürün kodları ve bu ürünlerin açıklamaları var.

İstediğim şey, 2. sayfadaki "a2" sütununa örneğin;1. sayfadaki ürün kodu olan 4400'ü yazınca otomatik olarak 1. sayfadaki verilerin bunun yanına gelmesi.

yardımcı olursanız çok memnun olurum.

 

[Emir Hüseyin Çoban]

. . .

Başka bir siteye yükleyebilir misiniz. Bu sitede virüs programı uyarı verdi...

. . .

 

[Orion1]

Dosyanız linktedir.

DOSYAYI İNDİR

....

 

[sozzy1905]

http://s3.dosya.tc/server7/5cnb49/FIYAT.xls.html

 

[sozzy1905]

Dosyanız linktedir.

DOSYAYI İNDİR

....

çok teşekkürler elinize sağlık

 

[Emir Hüseyin Çoban]

Dosyanız linktedir.

DOSYAYI İNDİR

....

Küçük bir ilave.. veri doğrulama ekledim.

İNDİR - FİYAT59_01.rar

. . .

 

[sozzy1905]

Dosyanız linktedir.

DOSYAYI İNDİR

....

Hayırlı akşamlar, bu tabloya ürün kodunu yazdığım zaman birim fiyat ile miktar çarpılıp otomatik olarak toplam fiyatın altına yazabilme şansım var mıdır?

 

[Orion1]

Hayırlı akşamlar, bu tabloya ürün kodunu yazdığım zaman birim fiyat ile miktar çarpılıp otomatik olarak toplam fiyatın altına yazabilme şansım var mıdır?

worksheetchange olayında koda aşaığıdaki kırmızı satırı ekleyin.

Dim sonsat As Long, i As Long, sh As Worksheet, sat As Long
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Set sh = Sheets("BAZ TABLO")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To sonsat
    If sh.Cells(i, "A").Value = Target.Value Then
        sat = Target.Row
        Range("B" & Target.Row & ":H" & Target.Row).Value = _
        sh.Range("B" & i & ":H" & i).Value
        [B][COLOR="Red"]Range("G" & Target.Row).Value = Range("D" & Target.Row).Value * _
                Range("F" & Target.Row).Value[/COLOR][/B]
        Exit Sub
    End If
Next i
MsgBox "Bu veri bulunamadı.", vbCritical, "U Y A R I"

 

[sozzy1905]

Emeğiniz için teşekkürler ,yalnız kodu eklediğim zaman hata alıyorum

 

[Orion1]

Emeğiniz için teşekkürler ,yalnız kodu eklediğim zaman hata alıyorum

Öncekileri silip bu kodları ekleyecektiniz.
Dosyanız linktedir.

DOSYAYI İNDİR

...