Merhaba , Toplu işlemler için bir seferde makro kodu çalıştırarak sorununuza çözüm bulabilirsiniz. Bunun için önce Araçlar - Makro - Güvenlik seçeneklerinden Güvenlik ayarınızı düşük veya orta seçmelisiniz. Orta seçerseniz makroları etkinleştir seçiminde tamam demeniz gerekecek.
Sub yuvarla()
Dim i As Long, a As Long
a = Range("a65536").End(3).Row
For i = 2 To a
Cells(i, 1) = Round(CDbl(Cells(i, 1).Value), 1)
Next i
End Sub
Bu kodlamayı verilerinizin bulunduğu sayfada Alt + F11 tuşlarına basarak açacağınız VBA penceresinde kod bölümüne yazınız. Makro güvenliğinizi ayarlamış iseniz ve verileriniz A sütununda ise F5 tuşu ile makroyu çalıştırın istediğiniz olacak. Verileriniz başka yerlerde ise
Cells(i,1) a sütunu demek, 2 b sütunu , 3 c sütunu şeklinde gider...
Bunu değiştirip işlem yapabilirsiniz.
Örnek D sütunu için :
Cells(i, 4) = Round(CDbl(Cells(i, 4).Value), 1)
Hatta veriler D sütununda ise
a = Range("a65536").End(3).Row
kodlamasını
a = Range("D65536").End(3).Row
olarak da değiştirebilirsiniz.
Bu şekilde deneyiniz, sonuç alacaksınız.
Belki de makrolarla tanışma zamanı geldi :)
sitesinde ücretsiz destek veriyoruz.
Katılımınızı bekler iyi çalışmalar dilerim.
Saygılarımla,