Problem with dot.

Status
Not open for further replies.

ljubo_gr

Board Regular
Joined
Dec 6, 2014
Messages
244
Office Version
  1. 2016
Platform
  1. Windows
Hi!
I'm moderatte Excel user. I have Office2016 regional setting coma decimal separator. When i open two or more workbooks and use this code to copy data to clipboard:
Code:
Sub Macro1_Copy_S12()
'
' Macro1_Copy_S12 Macro
'

'
    Sheets("LTV").Select
    Range("G21:G24").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-42
    Range("A1").Select
    Sheets("iTEMP").Select
End Sub
Sub Macro3_Copy_S11()
'
' Macro3_Copy_S11 Macro
'

'
    Sheets("LTV").Select
    ActiveWindow.SmallScroll Down:=9
    Range("F21:F24").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-36
    Range("A1").Select
    Sheets("iTEMP").Select
End Sub
Sub Macro4_Copy_S10()
'
' Macro4_Copy_S10 Macro
'

'
    Sheets("LTV").Select
    ActiveWindow.SmallScroll Down:=9
    Range("E21:E24").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-30
    Range("A1").Select
    Sheets("iTEMP").Select
End Sub

i end up with error. Well not quite error, but my numerical keyboard dot isn't coma anymore.
When i try to enter data in cell with decimal I have to use alphanumeric(left) coma. And i have to close all open books to restore defaut state. My in Excel setting is spelling&error checking in my own language, but display is in English(Match Windows system). Keyboard installed is in my language. Date&time is for Europa CET time.
Forrmatting in those ranges are General w/o coma thousand separator and with couple of values as decimals with coma separator(standard for EU).
Maybe, problem might cosing other workbook where i paste&transpose those values?
Code:
Private Sub pASTE_SPECIAL()
 On Error GoTo ifERROR

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=True

ifERROR:
 Exit Sub
 End Sub
But, in this paste woorkbook i don't have problem with dot. Only in that starting Copy worrkbook.:confused:
 

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.
Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #12 here: Forum Rules).
 
Upvote 0
Status
Not open for further replies.

Forum statistics

Threads
1,216,579
Messages
6,131,531
Members
449,654
Latest member
andz

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top