Harf Karşısına Sayı Getirme

[newmaster]

Merhaba Arkadaşlar,

Harf Karşısına sayı nasıl getirebilirim?

 

[Emir Hüseyin Çoban]

. . .


G1 hücresi için formül, aşağıya doğru çoğaltın.

=[B][COLOR="DarkRed"]DÜŞEYARA[/COLOR][/B](F1;$A$1:$B$4;2;0)

. . .

 

[Orion1]

Makro ile;
Ekli dosyayı inceleyiniz.

Sub sayigetir59()
Dim son1 As Long, son2 As Long, i As Long, k As Range
son1 = Cells(Rows.Count, "A").End(xlUp).Row
son2 = Cells(Rows.Count, "F").End(xlUp).Row
Range("G:G").ClearContents
Application.ScreenUpdating = False
For i = 1 To son2
    Set k = Range("A1:A" & son1).Find(Cells(i, "F").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "G").Value = k.Offset(0, 1).Value
    End If
    Set k = Nothing
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[newmaster]

Kendim sordumdum kendim cevabını buldum gece vakti çalışınca beyin duruyor
Diger cevap veren arkadaşlara da teşekkür ederim.

=EĞER(F1="A";20;EĞER(F1="B";15;EĞER(F1="C";10;EĞER(F1="D";5;""))))

 

[Erdem Akdemir]

Kendim sordumdum kendim cevabını buldum gece vakti çalışınca beyin duruyor
Diger cevap veren arkadaşlara da teşekkür ederim.

=EĞER(F1="A";20;EĞER(F1="B";15;EĞER(F1="C";10;EĞER(F1="D";5;""))))

Sayın newmaster merhaba,

Mantıklı olan Hüseyin bey'in önerdiği formül, siz işi uzatmışsınız.

 

[Murat OSMA]

Sol taraftaki tablo yok ise bu şekilde de yazabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]=[COLOR="Red"]ARA[/COLOR](F1;{"A";"B";"C";"D"};{20;15;10;5})[/SIZE][/FONT]

 

[Orion1]

Kendim sordumdum kendim cevabını buldum gece vakti çalışınca beyin duruyor
Diger cevap veren arkadaşlara da teşekkür ederim.

=EĞER(F1="A";20;EĞER(F1="B";15;EĞER(F1="C";10;EĞER(F1="D";5;""))))

Sizin sorunuzdakine en uygunu Sayın Hüseyin Çoban'ın cevabı oluyor.

 

[newmaster]

Çok teşekkürler arkadaşlar