aynı ismi girdiğimde başka sayfadan kodu nasıl getiririm?

[cordon85]

stok programı neredeyse bitmiş durumda ancak "out" sayfasına ürün adını girdiğimde, ürünün kodunu otomatik olarak "entry" sayfasından kopyalayıp "out" sayfasına da yazabilecek bir formule ihtiyacım var.

Yardımlarınızı bekliyorum..

 

[halit3]

bu kod olurmu acaba

Private Sub Worksheet_Change(ByVal Target As Range)
A = Target.Row
b = Target.Column
If Worksheets(ActiveSheet.Name).Cells(A, b).Value <> "" Then
If b = 4 Then
If Worksheets(ActiveSheet.Name).Cells(A, b).Value <> "" Then
For i = 3 To WorksheetFunction.CountA(Worksheets("Entry").Range("D465000")) + 4
If Worksheets("Out").Cells(A, b).Value = Worksheets("Entry").Cells(i, 4).Value Then
Worksheets("Out").Cells(A, 3).Value = Worksheets("Entry").Cells(i, 3).Value
Exit Sub
End If
Next
End If
End If
End If
End Sub

 

[cordon85]

bilemiyorum
benim istediğim bir excel formülü, makrodan anlamıyorum

teşekkür ederim zaman ayırdığınız için..

 

[halit3]

dosyanı kontrol et

 

[cordon85]

teşekkürler Halit Bey ancak bana bir excel formülü gerekli, macro kullanmadan yapmanın bir yolu yokmudur bunu?

 

[Ömer]

teşekkürler Halit Bey ancak bana bir excel formülü gerekli, macro kullanmadan yapmanın bir yolu yokmudur bunu?

Merhaba,

Fonksiyonla alternatif,

=EĞER(D4="";"";İNDİS(Entry!C:C;KAÇINCI(D4;Entry!D:D;0)))

Şeklinde kullanabilirsiniz..

.

 

[cordon85]

Sayın Espiyonajl,

Emek verdiğiniz için teşekkürler.
ancak formülünüzü girdiğimde #VALUE çıkıyor.
kullandığım excel ingilizce ve formülünüzü :
=IF(D4="";"";INDEX(Entry!C:C;RANK(D4;Entry!D;0))) şeklinde yazıyorum.
çevirmede bir hata mı yapıyorum acaba?

 

[Ömer]

Sayın Espiyonajl,

Emek verdiğiniz için teşekkürler.
ancak formülünüzü girdiğimde #VALUE çıkıyor.
kullandığım excel ingilizce ve formülünüzü :
=IF(D4="";"";INDEX(Entry!C:C;RANK(D4;Entry!D;0))) şeklinde yazıyorum.
çevirmede bir hata mı yapıyorum acaba?

=IF(D4="";"";INDEX(Entry!C:C;MATCH(D4;Entry!D:D;0)))

.

 

[cordon85]

Sayın Espiyonajl,

Mükemmel oldu
elinize sağlık

Teşekkür eder, başarılar dilerim..

 

[cumle_alem]

Ürün Kodu, Ürün Adı

Merhaba,
Benim bir isteğim var, yardımcı olabilir misiniz?
Ürün kodunu yazdığımda otomatik ürün adı gelsin istiyorum.
Mümkün müdür ?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

=EĞER(C5="";"";DÜŞEYARA(C5&"";Veriler!C:D;2;0))

.

 

[cumle_alem]

çok teşekkür ederim zaman ayırdığınız için..
Ben kod nereye yazılır bilmiyorum..
Makro, visual basic falan buldum bişeyler ama anlamadım ..
Tarif edebilir misiniz?

 

[Ömer]

Verdiğin kod değil excelin yerleşik fonksiyondur.

Sipariş adını görmek istediğiniz hücreye yazmanız yeterlidir. Örneğin tablonuz da D5 hücresine yazıp deneyin.

 

[cumle_alem]

Teşekkür ederim, kullanabiliyorum