LUCA Muhasebe Programı - Sayıya Çevirme

Katılım
8 Nisan 2005
Mesajlar
758
Excel Vers. ve Dili
Excel 2010 Türkçe
Merhaba,

LUCA Muhasebe programında Mizan Raporu aldığımda boş hücreleri sayıya çeviremedim.
Denediğim makrolar aşağıda :
Kod:
[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,
Kod:
[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

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
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?
 
Katılım
8 Nisan 2005
Mesajlar
758
Excel Vers. ve Dili
Excel 2010 Türkçe
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu kodu bir denermisiniz.

Kod:
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
 
Katılım
8 Nisan 2005
Mesajlar
758
Excel Vers. ve Dili
Excel 2010 Türkçe
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,
 
Katılım
8 Nisan 2005
Mesajlar
758
Excel Vers. ve Dili
Excel 2010 Türkçe
Bu kodu bir denermisiniz.

Kod:
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.
 
Katılım
8 Nisan 2005
Mesajlar
758
Excel Vers. ve Dili
Excel 2010 Türkçe
Bu kodu bir denermisiniz.

Kod:
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

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

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