LUCA Muhasebe Programı - Sayıya Çevirme

[ziya]

Merhaba,

LUCA Muhasebe programında Mizan Raporu aldığımda boş hücreleri sayıya çeviremedim.
Denediğim makrolar aşağıda :

[FONT=Times New Roman][SIZE=3]Sub SAYIYA_ÇEVİR()[/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]  Columns("C:Q").Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  Columns("C:Q").Select[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]      ReplaceFormat:=False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]      ReplaceFormat:=False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]     Application.CutCopyMode = False[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3]Range("D1").Select[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]

Sub SAYIYA_ÇEVİR()
SUTUN1 = [“C”]
SUTUN2 = [“Q”]
On Error Resume Next
With Columns(SUTUN1 & ":" & SUTUN2)
.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
.Replace What:=".", Replacement:="", LookAt:=xlPart
.Replace What:=",", Replacement:=".", LookAt:=xlPart
End With
If Err > 0 Then MsgBox "Hatalı sütun adı": Err = 0
End Sub

Makro dışında "Özel Yapıştır" denedim,

[COLOR=black][FONT=Trebuchet MS]bir hücreye [/FONT][/COLOR][B][COLOR=blue][FONT=Trebuchet MS]0[/FONT][/COLOR][/B][COLOR=black][FONT=Trebuchet MS]yazın, 0 yazdığınız hücreyi kopyalayıp, AA sütunundaki ilgili alanı seçip ÖZEL YAPIŞTIR ->[/FONT][/COLOR][B][COLOR=blue][FONT=Trebuchet MS]TOPLA[/FONT][/COLOR][/B][COLOR=black][FONT=Trebuchet MS]->DEĞERLERİ şeklinde ya da[/FONT][/COLOR]
 
 
[COLOR=black][FONT=Trebuchet MS]bir hücreye [/FONT][/COLOR][B][COLOR=blue][FONT=Trebuchet MS]1[/FONT][/COLOR][/B][COLOR=black][FONT=Trebuchet MS]yazın, yazdığınız hücreyi kopyalayıp, AA sütunundaki ilgili alanı seçip ÖZEL YAPIŞTIR -> [/FONT][/COLOR][B][COLOR=blue][FONT=Trebuchet MS]ÇARP[/FONT][/COLOR][/B][COLOR=black][FONT=Trebuchet MS]->DEĞERLERİ şeklinde[/FONT][/COLOR]
[FONT=Trebuchet MS][COLOR=black]işlem yaparsanız veriler sayıya dönüşecektir.[/COLOR][/FONT]

Olmadı , olmadı.

Dosya yükleyemediğim için muhasebe programı adını yazdım. (LUCA Muhasebe programı)
Umarım benim için sorun olan bu durumu sorun etmeyen arkadaşlarımız vardır ve bana da yardımcı olurlar.

Selamlar,

 

[Ömer BARAN]

Merhaba.
Boş dediğiniz hücreler boş olmadığı gibi bildiğimiz BOŞLUK karakteri de değil demektir.
Boş dediğniz bir hücre içeriğini kopyala yapıştır yöntemiyle buraya yazar mısınız?

 

[ziya]

Merhaba,
Dosyamı yandex diskte paylaştım.

https://yadi.sk/i/nwC2ypFnnFRLRhttps://yadi.sk/i/x42PbOTYnFNCz

Ayrıca, Sn Baran'ın istediğini bir alt satıra yapıştırıyorum.



Selamlar,

 

[ziya]

SN Baran,

Yapıştırdığım excel hücresi dört tarafı çerçeveli boş bir hücre görünümünde idi ve kaydetmeden önce görüntü böyle idi. Kaydettiğim anda silinmiş ya da kaydedilmemiş.

Selamlar,

 

[halit3]

Bu kodu bir denermisiniz.

Sub sayı_çevir()
    
Dim X As Range
For Each X In [C1:q100]
If X.Value = "" Then
X.Value = 0
End If
Next X
End Sub

 

[ziya]

Merhaba Sn halit3,

Hem cevabı kopyalarak deniyorum hem gülümsüyorum. Biliyorum ki, sonuç mutlaka istediğim gibi olacak. Teşekkür ederim. Tekrar merrhaba.
Selamlar,

Sn Baran, ilginize çok teşekkür ederim.
Selamlar,

 

[ziya]

Bu kodu bir denermisiniz.

Sub sayı_çevir()
   
Dim X As Range
For Each X In [C1:q100]
If X.Value = "" Then
X.Value = 0
End If
Next X
End Sub

Sn halit3

2016 yılında verdiğiniz cevap, hemen hemen 7 sene sonra benim işini de halletti.
Bu vesile ile teşekkür ederken, selam ve sevgilerimi sunarım.

 

[ziya]

Bu kodu bir denermisiniz.

Sub sayı_çevir()
   
Dim X As Range
For Each X In [C1:q100]
If X.Value = "" Then
X.Value = 0
End If
Next X
End Sub

Bu kodda şu değişikliği yapabilir miyiz.

1. [c1:q100] değil de , q son dolu satıra kadar (100.ncü satır değil de, son dolu satır
2 0'lar görünür olmasın (ben Koşullu Biçimlendirme ile hücre değeri 0 ise, renk beyaz olsun olarak yaptım , oldu ama halit3 -elbette diğer değerli hocalarımız- eminim bana yeni bir şey öğretir)

Yardımlarınız için teşekkür ederim.

 

[Ömer]

Merhaba,

[C1:q100] yerine aşağıdaki satırı yazarak deneyiniz.

Range ("C1:Q" & Cells(Rows.Count, "Q").End(xlUp).Row)

 

[ziya]

Merhaba,

[C1:q100] yerine aşağıdaki satırı yazarak deneyiniz.

Range ("C1:Q" & Cells(Rows.Count, "Q").End(xlUp).Row)

Ömer hocam,
Teşekkür ederim.