Dobrý deň
Potrebujem zoradiť osem skupín v jednom hárku.
Použil som tento kód pre jednu skupinu:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
Sheets("Hárok2").Select
Range("m3:n7").Select
Selection.Sort Key1:=Range("n4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Pre prvú skupinu mi to zoraďuje správne, ale už pre druhú skupinu mi to zoraďovať nechce. Treba niečo zmeniť? Ďakujem.
A ešte jeden problém. Môže mi niekto poradiť, ako sa dá cez Forms.TextBox prenášať do jednotlivých buniek?
Napr... Keď napíšem nejaké slovo do Forms.TextBox, chcel by som aby mi to preplo keď stlačím Forms.CommandButton do A1, A2, A3 atď...pričom bi mi to slovo zmizlo z Forms.TextBox. Je na to nejaký kód? Ak áno vopred Ďakujem!!!