MAKRODA BUYUK-KUCUK HARF DUYARLILIGI!!!

[thegreen]

Selam arkadaslar, bu konuyla ilgili bir gonderi buldum fakat hic ise yaramiyor benim kullanmis oldugum makroda.
Elimde bulunan sirali bi liste var ornek//
i11-GlitterBumper-Lilac
i11-GlitterBumper-Mint
i11-GlitterBumper-Pink
i11-GlitterBumper-White
yukarida ki listeye karsilik gelecek satis sayilari var..ornek//
i11-GlitterBumper-White 8
i11-GlitterBumper-mint 5
i11-GlitterBumper-lilac 8
i11-GlitterBumper-pinK 4

Makroyu calistirdigim zaman sadece "i11-GlitterBumper-White " duzgun calisiyor... diger 3'u sanirim harf duyarliligina takiliyor. makro asagida " Option Compare Text" ise yaramadi bende.

Private Sub RunTheExcelForm2_Click()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "Application will start soon"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

 

[Muzaffer Ali]

Merhaba.
Başka bir sorun vardır. Option Compare Text bu sorunu çözmesi gerekir.
Dosyanızı ekleyin kontrol edelim. Dosyanızı dosya.tc gibi bir paylaşım sitesine ekleyebilirsini.

 

[Muzaffer Ali]

Aşağıdaki kodlardan istediğinizi kullanabilirsiniz.

Aşağıdaki kod bulunamayanlara #YOK hatası verir.

Sub Test1()
    With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=vlookup(a2,'SATIS LISTESI (ORNEK)'!A:B,2,0)"
        .Value = .Value
    End With
End Sub

Aşağıdaki bulunamayanları boş bırakır.

Sub Test2()
    With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=vlookup(a2,'SATIS LISTESI (ORNEK)'!A:B,2,0)"
        On Error GoTo HataYok
        .SpecialCells(xlCellTypeFormulas, 16) = ""
HataYok:
        .Value = .Value
    End With
End Sub

 

[thegreen]

Yardımınız için çok teşekkür ederim, yazmış olduğunuz makroyu biraz değiştirmek zorunda kaldım, pek fazla bilgim yok ama şu kısmı
.SpecialCells(xlCellTypeFormulas, 16) = "" şu şekilde yaptım
.SpecialCells(xlCellTypeFormulas, 16) = "0" çünkü hücre içinde 0 dahi olsa bir değere ihtiyacım var.

Tekrardan çok teşekkürler.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.