Ucase toevoegen aan bestaande Macro

[leen85]

Goedemiddag,

Ik wil graag een dat als ik de gegevens van sheet input naar sheet data verplaats deze in hoofdletters verschijnen in sheet data.
Hoe kan ik dit best doen?

Grts,

Leen

 

[Cobbe]

Een van de mogelijkheden.

 

[VenA]

Met een andere mogelijkheid. Ik ga ervan uit dat je de hele tabellen wilt sorteren en niet een gedeelte.

Private Sub CommandButton1_Click()
    Dim cl
    For Each cl In Sheets("Input").[C2:C13]
        cl.Value = UCase(cl.Value)
    Next cl
    With Sheets("Data")
        .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Resize(, 12) = Application.Transpose(Sheets("Input").Range("C2:C13"))
        .Cells(1).CurrentRegion.Sort .[B1], , , , , , , 1
    End With
    With Sheets("Back up")
        .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Resize(, 12) = Application.Transpose(Sheets("Input").Range("C2:C13"))
        .Cells(1).CurrentRegion.Sort .[B1], , , , , , , 1
    End With
    Sheets("Input").Range("C2:C13").ClearContents
End Sub

 

[HSV]

Private Sub CommandButton1_Click()
[c2:c13] = [index(upper(c2:c13),)]
for each sh in Sheets(array("Data","Back up"))
        sh.Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 12) = Application.Transpose(Range("C2:C13"))
        sh.Cells(1).CurrentRegion.Sort  sh.[B1], , , , , , , 1
   next sh
 Range("C2:C13").ClearContents
end sub

Maar even volledig gemaakt (niet getest).