Sayfada değişiklik oldukça sütundaki değeri sabitle çarpmak

[SİBEL70]

Merhabalar,

Kapalıyken veri aktardığım bir excel dosyasında, iki ayrı sutuna sayılar metin formatında kaydediliyor. Metni, rakama excel sayfasında, formülle çevirdiğimde yeni veri girdikçe formül bozuluyor ve sürekli yenilemek durumunda kalıyorum. İlgili sütundaki, hücrelere veri girdikçe, otomatik olarak 1 ile çarpıp, metni sayıya çevirebilecek ve yeniden veriyi aldığı hücreye yazdırabilecek bir makro varmıdır acaba? Günlerdir araştırıyorum ancak işime yarayacak bir çalışma bulamadım.
Saygılar,

 

[fedeal]

aktardıgınız makrodaki veriyi (örnegin textbox ise) cdbl(textbox1.text) cdbl() içine almayı denedinizmi? sayı olarak atacaktır ancak boş olursa hata verir.

 

[fedeal]

yada sunuda kullanabilirsiniz,a sütununda oldugunu var sayarsak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SON = Range("A65536").End(xlUp).Row
For Say = 2 To SON
cells(say,1).value=cells(say,1).value*1
next
end sub

 

[SİBEL70]

Fedeal bey merhabalar,

önerdiğiniz yöntemleri denedim. ikinci önerinizde,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SON = Range("A65536").End(xlUp).Row
For Say = 2 To SON
cells(say,1).value=cells(say,1).value*1
next
end sub
kodunu ilgili sayfanın kod bölümüne yazdırdığımda Run_time Error "13" Type mismatch uyarısını alıyorum..

İlk öneriniz de aşağıdaki kodlarla ilgili dosyaya veri gönderdiğimde metin olarak atmaya devam ediyor..

Private Sub CommandButton1_Click()
Set Baglan = New ADODB.Connection
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\k.xls;" & "Extended Properties=""Excel 8.0;HDR=no""" 'Bağlantı kur
Set Kayit = New ADODB.Recordset
Kayit.Open "SELECT * FROM [data$] ", Baglan, adOpenKeyset, adLockOptimistic 'data'i aç
Kayit.AddNew 'Yeni kayıt eklenecek
Kayit.Fields(0) = ComboBox2 ' A sütununa Text1 değeri
Kayit.Fields(1) = TextBox3 ' B sütununa Text2 değeri
Kayit.Fields(2) = TextBox2
Kayit.Fields(3) = TextBox6
Kayit.Fields(4) = TextBox7
Kayit.Fields(5) = ComboBox1
Kayit.Fields(6) = CDbl(TextBox4.Text)
Kayit.Fields(7) = CDbl(TextBox5.Text)
Kayit.Update 'Güncelle
Kayit.Close 'Kapat
Set Kayit = Nothing
Baglan.Close
Set Baglan = Nothing
MsgBox "kayıt tamamlandı"

End Sub

Amacım bu verileri sayıya çevirip başka bir dosyada toplam aldırmak. Ancak metin olduğu için toplam aldıran kodlarımda bir işe yaramıyor..

 

[fedeal]

sütunda 2.satırdan sonramı sayısal veriler bulunuyor hücrelerdeki değerler sayısalsa alttaki kodu deneyin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Say = 2 To Range("A65536").End(xlUp).Row
cells(say,1).value=cdbl(cells(say,1).value)
next
end sub
birde kırmızı olan sütun numaralarını uygulayacagınız sütun numarasıyla değiştirin

 

[SİBEL70]

Fedeal bey,

çok teşekkürler. Son verdiğiniz kod ile sütun numaralarını düzeltince sorun çözüldü.

İyi bir gün ve iyi çalışmalar diliyorum.

Saygılar,

 

[fedeal]

ricaederim,güzel temennileriniz için ben teşekkür ederim,iyi çalışmalar.