- Katılım
- 28 Mart 2015
- Mesajlar
- 28
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 20-03-2024
Arkadaşlar merhabalar kodum aşağıdaki gibidir.
B1 = NEVŞEHİR
B2 = nevşehir
En üstte Option compare text yazısı mevcut ona rağmen If blogunun içerisine girmiyor.. İkisini de küçük yaparsam giriyor ama farklı olursa girmiyor.. Sanırım bir dil sorunu yaşıyorum. Tecrübesi olanlar yazabilirler mi ..
Courier New TR Tahoma TR gibi VBA dillerini denedim aynı hatayı veriyor..
Aynı zamanda VBA arayüzündeki bu çalışma kitabı yazan kısım da da farklı farklı karakterler mevcut.. Bu sorunumu bir türlü çözemedim..
Sub Arabul()
Dim i, MngSonSatirH, MVSonSatirA As Long
Dim aranan, ilkadres As String
Dim Kontrolyeri, Bulunan As Range
MngSonSatirH = Sheets("MNG").Cells(Rows.Count, "H").End(xlUp).Row
MVSonSatirA = Sheets("M1").Cells(Rows.Count, "A").End(xlUp).Row
B1 = Sheets("M1").Range("D180").Value
B2 = Sheets("M1").Range("D181").Value
Sheets("M1").Range("D183").Value = B1
Sheets("M1").Range("D184").Value = B2
MsgBox B1 & B2
If B1 = B2 Then
MsgBox "Eşit"
End If
End Sub
B1 = NEVŞEHİR
B2 = nevşehir
En üstte Option compare text yazısı mevcut ona rağmen If blogunun içerisine girmiyor.. İkisini de küçük yaparsam giriyor ama farklı olursa girmiyor.. Sanırım bir dil sorunu yaşıyorum. Tecrübesi olanlar yazabilirler mi ..
Courier New TR Tahoma TR gibi VBA dillerini denedim aynı hatayı veriyor..
Aynı zamanda VBA arayüzündeki bu çalışma kitabı yazan kısım da da farklı farklı karakterler mevcut.. Bu sorunumu bir türlü çözemedim..
Sub Arabul()
Dim i, MngSonSatirH, MVSonSatirA As Long
Dim aranan, ilkadres As String
Dim Kontrolyeri, Bulunan As Range
MngSonSatirH = Sheets("MNG").Cells(Rows.Count, "H").End(xlUp).Row
MVSonSatirA = Sheets("M1").Cells(Rows.Count, "A").End(xlUp).Row
B1 = Sheets("M1").Range("D180").Value
B2 = Sheets("M1").Range("D181").Value
Sheets("M1").Range("D183").Value = B1
Sheets("M1").Range("D184").Value = B2
MsgBox B1 & B2
If B1 = B2 Then
MsgBox "Eşit"
End If
End Sub