Makroda hata

[mersilen]

Merhabalar

Tablodan veri alırken değer karşılaştırmalarındaki uyumsuzluktan dolayı verileri alamamakta
Sorunu nasıl çözebilirim.

 

[suleyman242]

hasta numaralarını her iki sayfada da aynı formatta yapınca sorun çözülüyor ya hepsini sayı formatı yapınız yada hepsini metin formatına çeviriniz

 

[mersilen]

hasta numaralarını her iki sayfada da aynı formatta yapınca sorun çözülüyor ya hepsini sayı formatı yapınız yada hepsini metin formatına çeviriniz

Bunu makro kodu ile yapıyım dedim ama beceremedim.

 

[suleyman242]

Bunu makro kodu ile yapıyım dedim ama beceremedim.

O zaman kodu şu şekilde düzenleyin

If [COLOR="Red"][B]CStr([/B][/COLOR]Cells(a, "B").Value[COLOR="Red"][B])[/B][/COLOR] = [COLOR="Red"][B]CStr([/B][/COLOR]Sheets("Sayfa2").Cells(i, "a").Value[COLOR="Red"][B])[/B][/COLOR] Then

 

[mersilen]

O zaman kodu şu şekilde düzenleyin

If [COLOR="Red"][B]CStr([/B][/COLOR]Cells(a, "B").Value[COLOR="Red"][B])[/B][/COLOR] = [COLOR="Red"][B]CStr([/B][/COLOR]Sheets("Sayfa2").Cells(i, "a").Value[COLOR="Red"][B])[/B][/COLOR] Then

Süleyman bey kod işe yaradı
sorunsuz oldu.

tablo üzerinde tek bir sütunu düzeltiyim dedim biraz uzun yoldan oldu.

For a = 2 To sonsatir1
   If Cells(a, "Bl").Value <> "" Then Cells(a, "B").Value = CStr(Cells(a, "B").Value) * 1           
Next a

Acaba bunun daha kolay bir kodu var mı?

 

[suleyman242]

Süleyman bey kod işe yaradı
sorunsuz oldu.

tablo üzerinde tek bir sütunu düzeltiyim dedim biraz uzun yoldan oldu.

For a = 2 To sonsatir1
   If Cells(a, "Bl").Value <> "" Then Cells(a, "B").Value = CStr(Cells(a, "B").Value) * 1           
Next a

Acaba bunun daha kolay bir kodu var mı?

kodun içerisine birinci for next döngüsü içerisine

For a = 2 To 6 'sonsatir1
[COLOR="Red"][B]Cells(a, "B").Value = CStr(Cells(a, "B").Value) * 1[/B][/COLOR]
.
.
.

şeklinde yazıver