EXCEL - automatické vypĺňanie

[28_nitro_28]

Ešte ma napadlo v praxi. Dá sa urobiť aj zápis kde bude číslo od 1 do 10 začínať s 0 na žačiatku? 01H1, 01H2, 02H1, 02H2...

Jedná sa o to, že keď si vyberiem dáta zo stĺpca a nevyberám ich postupne ale na preskačku a prekopírujem ich do iného stĺpca potrebujem ich ďalej zoradiť. Lenže zoraďovanie mi to nezoradí ale rozhádže, 2ku za 20ky atp. Alebo viete poradiť ako nastaviť zoraďovanie aby to zoraďovalo správne?

Prípadne ďalší skript, ktporý by mi to automaticky zoradil?

Jedná sa o to, že potrebujem mať zoradené indexy pretože na tavbu (asi 10indexov) musím urobiť presné mechanické a chemické vlastnosti a keď mi to rozhádže 2ku, 3ku ... na koniec a nezoradí ako má tak by som musel potom zas vkladať zvlášť tieto hodnoty pre každý rozhádzaný index. Je to nepriehľadné a komplikuje to prácu.

Snáď som to vysvetlil zrozumiteľne

Ďakujem za info

[Reklama]

[Grimm]

Jen nástřel v rychlosti. Otestuj.

Kód: Vybrat vše

Option Explicit

Sub vyplneni_Index_A_B()
Dim posun As Integer
Dim i As Integer, x As Integer
Dim Index()

ReDim Index(1 To 2, 1 To 3)
Index(1, 1) = "A"
Index(1, 2) = 84    'min
Index(1, 3) = 99    'max
Index(2, 1) = "B"
Index(2, 2) = 1     'min
Index(2, 3) = 12    'max

For x = LBound(Index, 1) To UBound(Index, 1)
    For i = Index(x, 2) To Index(x, 3)
        Select Case i
       'zde uvedená čísla budou vynechána, pokud chceme vynechání zrušit zapíšeme 0 (Case 0)
        Case 6, 9, 66, 69, 96, 99
             
        Case Else
            Range("A2").Offset(posun).Value = Index(x, 1) & Format(i, "00") & "H1"
            posun = posun + 1
            Range("A2").Offset(posun).Value = Index(x, 1) & Format(i, "00") & "H2"
            posun = posun + 1
        End Select
    Next i
Next x

Erase Index
End Sub




[28_nitro_28]

Ahoj,

Si super funguje dokonale

Ďakujem pekne

Ešte je niečo čo ma napadlo ale prv s tým chcem bojovať sám, či dobre rozumiem tomu kódu a ak budem úplne v koncoch potom napíšem

zatiaľ ďakujem veľmi pekne