Kopyala 1 ile Çarp Yapıştır

[vivident]

Merhaba
B6 : D3000 arasında metin biçiminde sayılarım var. Ben bu verileri AA6'dan itibaren yapıştırmak istiyorum, ama değerleri yapıştır dediğimde sayılar yine metin olarak kalıyor, bende kopyaladığım değerleri yapıştırmadan önce 1 değeri ile çarptırıp rakam yapmayı düşündüm ama 1 ile nasıl çarptıracağım beceremedim

Sub aktarkopy()
Range("B6:D3000").copy
Range("AA6").PasteSpecial (xlPasteValues)
End Sub

 

[katip16487]

AA6 hücresine =B6*1 formülünü yazarak denemeniz halinde yardımcı olabileceğini düşünüyorum.

 

[vivident]

B6*1
B7*1
B8*1...Vb uzayıp gider. Formül yazıp dosyayı şişirmemek için makro kullanmaya çalışıyorum

 

[PLİNT]

Merhaba
B6 : D3000 arasında metin biçiminde sayılarım var. Ben bu verileri AA6'dan itibaren yapıştırmak istiyorum, ama değerleri yapıştır dediğimde sayılar yine metin olarak kalıyor, bende kopyaladığım değerleri yapıştırmadan önce 1 değeri ile çarptırıp rakam yapmayı düşündüm ama 1 ile nasıl çarptıracağım beceremedim

Sub aktarkopy()
Range("B6:D3000").copy
Range("AA6").PasteSpecial (xlPasteValues)
End Sub

Merhaba
Aşağıdaki kırmızı bölümle sayıya dönüştürebilirsiniz.;

Sub aktarkopy()
Range("B6:D3000").Copy
Range("AA6").PasteSpecial (xlPasteValues)
[COLOR="Red"]Selection.SpecialCells(xlCellTypeConstants, 1).NumberFormat = "0" [/COLOR]
End Sub

 

[Ömer BARAN]

Alternatif olsun, belki lazım olur.

Kod kullanmanız şart değilse; veriyi kopyalayıp yapıştırdıktan sonra;
-- bir hücreye 0 yazın, 0 yazdığınız hücreyi kopyalayıp, AA sütunundaki ilgili alanı seçip ÖZEL YAPIŞTIR -> TOPLA ->DEĞERLERİ şeklinde ya da
-- bir hücreye 1 yazın, yazdığınız hücreyi kopyalayıp, AA sütunundaki ilgili alanı seçip ÖZEL YAPIŞTIR -> ÇARP ->DEĞERLERİ şeklinde
işlem yaparsanız veriler sayıya dönüşecektir.

 

[Emir Hüseyin Çoban]

Merhaba
B6 : D3000 arasında metin biçiminde sayılarım var. Ben bu verileri AA6'dan itibaren yapıştırmak istiyorum, ama değerleri yapıştır dediğimde sayılar yine metin olarak kalıyor, bende kopyaladığım değerleri yapıştırmadan önce 1 değeri ile çarptırıp rakam yapmayı düşündüm ama 1 ile nasıl çarptıracağım beceremedim

Sub aktarkopy()
Range("B6:D3000").copy
Range("AA6").PasteSpecial (xlPasteValues)
End Sub

Sub kod()
    Application.ScreenUpdating = False
    For Each alan In Range("B6:D3000")
        alan.Offset(0, 25) = alan.Value * 1
    Next
    Application.ScreenUpdating = True
End Sub

. . .

 

[vivident]

Sayın PLİNT
Kod çalıştı, lakin yapıştırma yaptıktan sonra 400 kodu aldım

Sayın Hüseyin bey
Kod çalıştı. Lakin tarih olan verilen "14.10.15" gibi 141015 oldu

 

[vivident]

Ek dosya ekledim. Belki daha sağlıklı çözüm yolu bulabiliriz

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    For Each alan In Range("B6:C3000")
        alan.Offset(0, 25) = alan.Value * 1
    Next
    
    For Each alan In Range("D6:D3000")
        alan.Offset(0, 25) = alan
    Next
    Range("D6:D3000").Offset(0, 25).NumberFormat = "m/d/yyyy"
    
    Application.ScreenUpdating = True
End Sub

. . .