Hücreye değer yazdırmak

[k0081]

Merhaba arkadaşlar;

B16 hücresine ; Demir yazdığımda, B20 ye 0,35 nasıl yazdırabilirim ?

yardımcı arkadaşa şimdiden teşekkürler..

 

[YUSUF44]

B20'de kullanılacak formül:

=EĞER(B16="Demir";0,35;"")

Ancak içimden bir ses sorunuzun bu kadar basit olmadığını söylüyor nedense

 

[k0081]

Ancak içimden bir ses sorunuzun bu kadar basit olmadığını söylüyor nedense

Çok teşekkür ediyorum.. içinizdeki ses doğru hocam.. şartları artırırsak yine aynı değeri yazdırabilirmiyim ? bir de formül değil de Macro ile yapmam gerekiyor hocam.. ( Worksheet_change olayı )

 

[YUSUF44]

Hah işte o basit olmayan durumu en baştan anlatsanız çok daha iyi olur. görüyorsunuz bu kadar basit sorunca bu kadar basit cevap alınıyor ancak sizin için çözüm olmuyor. Siz istediğiniz tümşartları belirtin ki biz de ona göre çözüm arayalım. Şartlar artacak ama 3 mü olacak 300 mü; artacaksa neye göre artacak, excel hangi durumda ne sonuç vereceğini nerden bilecek gibi sorular çözüm bekliyor.

siz mümkünse daha ayrıntılı bir açıklama ve örnek dosya ekleyin.

 

[k0081]

10 tane şart var diyelim; DEMİR,ÇİMENTO,KALIP,TAŞ,ÇELİK,TUTAR,KOD,ADET, BİRİM,GENEL,,, Bunlardan herhangi birisi yazıldığında ; 0,35 olacak.. bu kadar..

 

[YUSUF44]

Şu kodu kullanabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b16")) Is Nothing Then Exit Sub
If Target = "DEMİR" Or Target = "ÇİMENTO" Or Target = "KALIP" Or Target = "TAŞ" Or Target = "ÇELİK" Or Target = "TUTAR" Or Target = "KOD" Or Target = "ADET" Or Target = "BİRİM" Or Target = "GENEL" Then
[B20] = "0,35"
Else
[B20] = ""
End If
End Sub

Or'lu kısım belki kısaltılabilir. Ancak kod büyük küçük harf duyarlı olduğundan aynen kodda yazıldığı gibi b16'ya giriş yapılmalıdır.

 

[YUSUF44]

Ya da o kelimeler D1150 aralığına yazılmışsa aşağıdaki kodları kullanarak büyük küçük harf duyarsız olarak çalıştırabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b16")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("d11:d50"), Target.Value) > 0 Then
[B20] = "0,35"
Else
[B20] = ""
End If
End Sub

 

[k0081]

Hocam çok teşekkür ediyorum.. tamamdır.. :bravo: