=EĞER(EHATALIYSA(İNDİS.......... ile nasıl yapılır ???

[nihatjeoloji]

=EÐER(EHATALIYSA(ÝNDÝS.......... ile nasıl yapılır ???

Selam arkadaşlar

Bu formül ile iki gündür çalışıyorum fakat bir türlü yapamadım
makro ile yazılırsa çok iyi olur

yardımcı olursanız sevinirim

Teşekkürler

 

[zafer]

Merhaba

 

[nihatjeoloji]

Syn zafer

hallolmadı

tamam yaptım
metin - sayı - birimi

metin yazdığımda sadec sayı giliyor
oysa
metin yazdığımda sayı ve birimi gelsin

 

[zafer]

MERHABA

Makroyuda inceleyin geliştirebilirsiniz

 

[zafer]

Merhaba

Makroyu güncelledim

Sub indis1()


For Each HUCRE In Range("B1:B100")
ADRES = HUCRE.Address
If Range(ADRES) = "" Then GoTo AA
SONUC = WorksheetFunction.Index(Sheets("INDIS").Range("G9:K18"), _
WorksheetFunction.Match(Sheets("INDIS").Range(ADRES), _
Sheets("INDIS").Range("H9:H18"), 0), 1)
Range(ADRES).Offset(0, -1) = SONUC
SONUC1 = WorksheetFunction.Index(Sheets("INDIS").Range("G9:K18"), _
WorksheetFunction.Match(Sheets("INDIS").Range(ADRES), _
Sheets("INDIS").Range("H9:H18"), 0), 5)
Range(ADRES).Offset(0, -1) = SONUC
Range(ADRES).Offset(0, 3) = SONUC1

AA:
Next

End Sub

 

[nihatjeoloji]

Syn zafer

çok sağolun
faka button olmadan olabilirmi acaba ???

 

[zafer]

Merhaba

Formül daha kullanışlı olmuyormu

B sütunundaki hücreye veri girdiğinde çalışır

indis sayfasının VBA sına yerleştirin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then indis1

End Sub

 

[nihatjeoloji]

syn zafer
çok sağolun fakat .gene olmadı ???


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then indis1

For Each HUCRE In Range("B1:B100")
ADRES = HUCRE.Address
If Range(ADRES) = "" Then GoTo AA
SONUC = WorksheetFunction.Index(Sheets("INDIS").Range("G9:K18"), _
WorksheetFunction.Match(Sheets("INDIS").Range(ADRES), _
Sheets("INDIS").Range("H9:H18"), 0), 1)
Range(ADRES).Offset(0, -1) = SONUC
SONUC1 = WorksheetFunction.Index(Sheets("INDIS").Range("G9:K18"), _
WorksheetFunction.Match(Sheets("INDIS").Range(ADRES), _
Sheets("INDIS").Range("H9:H18"), 0), 5)
Range(ADRES).Offset(0, -1) = SONUC
Range(ADRES).Offset(0, 3) = SONUC1

AA:
Next

End Sub

 

[zafer]

Merhaba

Sorunuzu başka başlıklar altındada sormuşsunuz.
buna gerek yok kapanmamış konulara zaten arkadaşlar cevap yazarlar.
bir konuya bir kişi cevap verecek gibi bir şey söz konusu değil.Konuyu bilen tüm arkadaşlar cevap yazabilirler.

Yukarıdaki yazmış olduğunuz makro ile olmaz tabii.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then indis1
End Sub

Bunu VB düzemleyicisindeyken sayfanın kod kısmına yazacaksınız

indis1 makrosu normal modülde olacak

ayrıca olmayan nedir. anlamadım

İndis1 'de ayrı makro

 

[nihatjeoloji]

syn zafer

çok çok Teşekkürler

 

[nihatjeoloji]

selam

az önece denedim gene bir sorun var

sorun şu
hüçre boş bırakıldığında (A1) hüçrede sayı gene duruyor.
yani hüçre boşken ne sayı ve nede birimi olacak

 

[birol_mumcu]

ben buraya cevap yolladım ama nereye gitti
hatta ekli dosya bile vardı :? :?

düzeltme:
ben bakarkörüm... anasayfadaki uyarıyı görmedim :hiho:

inşallah önemli bir problem değildir

 

[birol_mumcu]

geç olmadıysa dosyayı yollayayım :hiho:

 

[umutsancar]

Sanırım...

Sanırım cevap bu...

 

[nihatjeoloji]

sevgili umutsancar AND birol_mumcu

çok teşekkürler