virgül yerine nokta koyma

[kripteks28]

merhaba arkadaşlar makroda alan kısmına rakamları virgül ile yazıyor.bu kısmı nasıl noktaya çevirebilirim

Sub kod()


Dim S1 As Worksheet: Set S1 = Sheets("MAZOT ")
Dim S2 As Worksheet: Set S2 = Sheets("SAP")

sat = 2
S2.Range("A2:H" & Rows.Count).ClearContents

For Each alan In S1.Range("B3:AN32" & S1.Cells(Rows.Count, "A").End(3).Row)

If alan <> "" Then

S2.Cells(sat, "A") = "1500012"
S2.Cells(sat, "B") = alan
S2.Cells(sat, "C") = "L"
S2.Cells(sat, "D") = "C330"
S2.Cells(sat, "E") = "3612"
S2.Cells(sat, "F") = S1.Cells(1, alan.Column)
S2.Cells(sat, "G") = "901"
S2.Cells(sat, "H") = S1.Cells(alan.Row, 1)
sat = sat + 1

End If

Next


End Sub

 

[askm]

Örnek dosya ekleyebilir misiniz.

 

[kripteks28]

http://dosya.co/j6f0qntn0ms1/KASIM_2017_HAFTALIK_ÇIKIŞ.xlsm.html

şöyle bir ricam olucak a1 satırının altına 1 satır ekleyeceğim ve 33,34,35,36. satırlara veri gireceğim bu satırlara gireceğim veriler "SAP" sayfasına düşmesin böyle birşey mümkünmü acaba.