• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

LUCA Muhasebe Programı - Sayıya Çevirme

  • Konbuyu başlatan Konbuyu başlatan ziya
  • Başlangıç tarihi Başlangıç tarihi
Z

ziya

Katılım
8 Nisan 2005
Mesajlar
789
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
Genişletmek için tıkla ...

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,
 
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?
 
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,
 
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
 
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,
 
halit3' Alıntı:
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
Genişletmek için tıkla ...

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.
 
halit3' Alıntı:
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
Genişletmek için tıkla ...
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.
 
Merhaba,

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

Range ("C1:Q" & Cells(Rows.Count, "Q").End(xlUp).Row)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst