Selectie dmv macro converteren naar getal

[marcelwi]

Hallo,

Ik heb deze macro die in excel geÏmporteerde gegevens converteerd naar een getal:

Sub Convert()
With Sheets("Blad1")
sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(sq)
sq(i, 1) = sq(i, 1) * 1
Next
.[A2].Resize(UBound(sq)) = sq
.Columns("A").NumberFormat = "0"
End With
End Sub

Werkt prima en wat vooral belangrijk is; razendsnel.
Maar; alleen alle gegevens vanaf cel A2 op blad1 naar beneden worden geconverteerd.
Wat ik graag zou willen is dat dit werkt op elke reeks getallen die ik ergens selecteer ongeacht op welk werblad dat dan is.

Ik heb zelf wat dingen geprobeerd maar het lukt me niet, is het mogelijk deze code zo om te bouwen dat dat wél lukt?

b.v.d.
Marcel

 

[Wigi]

Sub Convert()
With Selection
sq = .Value
For i = 1 To UBound(sq)
sq(i, 1) = sq(i, 1) * 1
Next
.Value = sq
.NumberFormat = "0"
End With
End Sub

Graag code tags gebruiken als je code post op het forum.

Wigi

 

[snb]

Sub Convert()
  sq =Selection
  For i = 1 To UBound(sq)
    sq(i, 1) = sq(i, 1) * 1
  Next
  Selection.NumberFormat = "0"
  Selection= sq
End Sub

 

[marcelwi]

Heren, bedankt voor snelle reactie.
Dit werkt inderdaad al een heel eind zoals ik had gehoopt.
Maar, als 't niet teveel gevraagd is;
dit werkt dus prima als ik een aantal gegevens selecteer, maar het kan ook zijn dat ik een hele kolom of meerdere kolommen wil converteren en dan werkt dit niet en komt er een fout op regel
sq(i, 1) = sq(i, 1) * 1
Is het ook mogelijk om 't zo te maken dat ook dat lukt?

b.v.d.
Marcel

 

[marcelwi]

wellicht ook nog op te lossen?:
asl ik kolommen moet converteren dan hebben die vaak op de 1e regel een kolomkoptekst, daarop loopt jullie code ook stuk als ik die mee selecteer.

gr.
Marcel

 

[snb]

Een tweetal principes heb je aangereikt gekregen.
Probeer nu eens zelf te bedenken/uit te zoeken hoe je laatste vraag beantwoord kan worden. Analyseer daarbij de gegeven suggesties en gebruik de hulpfunktie van de VBEditor.