sayıyı sayıya dönüştürme

[acar6783]

Kolaygelsin arkadaşlar
bir sutunda verilerim var fakat bu veriler sayı olarak görsemde aşağı doğru sectiğimde sadece sayma yapıyor toplama yapmıyor başka bir deyişle metin olarak görüyor.
Forumdaki her cevabı denedim bildiğim her yolu denedim ama olmuyor .

Not sütundaki veriler başka bir dosydan veri alma yöntemiyle geliyor..

 

[Emir Hüseyin Çoban]

. . .

Bahsettiğiniz dosyanın küçük bir örneğini eklemeniz, cevap almanızı hızlandıracaktır.

. . .

 

[acar6783]

bahsettiğim sütuna ait dosya ektedir

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
Application.ScreenUpdating = False
For i = 2 To [A65536].End(3).Row
Cells(i, "A") = Cells(i, "A") * 1
Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[acar6783]

bo kudu sayfa1 de çalıştırmak istersek ne yapmalıyız?

 

[Emir Hüseyin Çoban]

. . .

Nasıl çalıştırmak ?
Sayfa1 de buton ile mi yoksa hücrelerde değişiklik yaptıkça mı ?

. . .

 

[acar6783]

sayfa 1 gizli bir sayfa ve bu sayfadaki e sutunundaki verileri sayıya dönüştürmem gerekiyor

 

[Emir Hüseyin Çoban]

. . .

Örnek dosyanızda böyle birşeyden bahsedilmiyordu.
Bu kodları deneyiniz.

Sub kod()
Dim S1 As Worksheet
Set S1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
For i = 2 To S1.[E65536].End(3).Row
S1.Cells(i, "E") = S1.Cells(i, "E") * 1
Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[acar6783]

teşekkürler
öğrenmek istedğim bir şey var hocam
yaptığımız bir kod içerisinde bu şekilde bir bölüm var

Application.DisplayAlerts = False
Sheets("Sayfa2").Range("G:G,L:L,O:O").Copy Sheets("Sayfa1").Columns("D")

yani Esütununa veri sayfa2deki Lsütunundan geliyor.gelirken sayı olarak gelme durumu varmıdır?

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodları deneyiniz.

Sub kod()

Sheets("Sayfa1").Columns("D:F").ClearContents
[COLOR="Green"]' Sayfa1 D:F sütunu aralığındaki verileri temizle[/COLOR]
Application.DisplayAlerts = False
Sheets("Sayfa2").Range("G:G,L:L,O:O").Copy
[COLOR="Green"]' Sayfa2 G,L ve O sütunlarını kopyala[/COLOR]
Sheets("Sayfa1").Columns("D:D").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
[COLOR="Green"]' Sayfa1 D sütununa özel yapıştır, hücrelerde veri varsa üzerine toplayarak tümünü yapıştır.[/COLOR]
Application.CutCopyMode = False
[COLOR="Green"]' Kopyalamayı ipta et.[/COLOR]
End Sub

. . .

 

[acar6783]

hocam son kodu uygulayamıyorum çünkü veri kopyalamadan yapıştıryor düzeltemedim
2. vermiş olduğunuz koda göre uyarladığımda ise işlem yaklaşık 2 dakika uzumakta ne yapmalıyız ki işlem beklemeden olsun?

 

[Emir Hüseyin Çoban]

. . .

# 10 nolu mesajımdaki kodlarda bir değişiklik yaptım. Tekrar deneyiniz.

. . .

 

[acar6783]

teşekkürler şimdi oldu
Peki kodu açıklarsak ne yapmış olduk ben o kadar denememe rağmen olmamıştı?

 

[Emir Hüseyin Çoban]

. . .

# 10 nolu mesajımdaki kodların altına açıklamalarını ilave ettim.

. . .

 

[acar6783]

TEŞEKKÜRLER
Herşey için ...

 

[acar6783]

hocam bugun farkettim ki işlemi tekrar denediğimde sayfa 1 deki e sutunua hiçbirşey kopyalamıyor.
varolan sayfa3 deki kopyalayacağımız veri sayı olmadığı için bir işlem yapmıyor.
bu işlemi makro kod olmadan değerleri koplayarak yapıştır dediğimde işlem gerçekleşiyor fakat kod ile yaptığımda hiçbirşey yapmıyor
kac gundur çabalıyorum bir türlü yapamadım basımı ağrıttı sadece su işlem
başka ne yapılabilir acaba?

 

[Trilenium]

b Sutununa aşagıdaki formülü yazınız.
İngilizce
=VALUE(A2)
Türkçe
=SAYIYAÇEVİR(A2)

ben yaptım ve sizin verinizi sayıya çevirdim..

Dosyanız ektedir. Koda ihtiyaç bulunmamaktadır.

 

[acar6783]

Peki bu formulü aşağıdaki koda nasıl bir ekleme yapabiliriz ya da böyle bir sey yapılabilirmi?
Sub yenile()
'
' Makro1 Makro
ActiveWorkbook.RefreshAll
Application.DisplayAlerts = False
Sheets("Sayfa1").Columns("A:B").ClearContents
'
Sheets("Sayfa2").Range("C").Copy Sheets("Sayfa1").Range("A:A")


Application.DisplayAlerts = False
Sheets("Sayfa1").Columns("D:F").ClearContents
Sheets("Sayfa3").Columns("G:I").Copy Sheets("Sayfa1").Columns("D")

Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll

End Sub

 

[Emir Hüseyin Çoban]

. . .

Orjinal tablonuzdan, örnek bir dosya yapın.
Sadece Sayfa1 ve Sayfa2 kalsın. 10 satırlık veri olsun. Verileri temsili bilgiler ile değiştirin.
Dosyanız üzerinde çalışalım.

Mesajlarınızda kodlar belirtirken [ CODE] [ /CODE] taglarını kullanmaya özen gösteriniz.

. . .

 

[acar6783]

örnek dosya

Hocam örnek dosya ekteki gibidir