Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz Vasinger! #2485 üzenetére

    Kicsit talán nehezen követhető :N

    for valami=kistábla_első_oszlop_első_cella to kistábla_első_oszlop_utolsó_cella
    on error goto beszúrás
    sor=application.match(cells(valami,kistábla_első_oszlop), columns(nagytábla_első_oszlopa),0)
    cells(soradik,nagytábla_második_oszlop)=cells(valami, kistábla_második_oszlop)
    cells(soradik,nagytábla_harmadik_oszlop)=cells(valami, kistábla_harmadik_oszlop)
    next
    exit sub

    beszúrás:
    nagytábla_első_oszlop_első_üres_cellája=cells(valami, kistábla_első_oszlop)
    nagytábla_második_oszlop_első_üres_cellája=cells(valami, kistábla_második_oszlop)
    nagytábla_harmadik_oszlop_első_üres_cellája=cells(valami, kistábla_harmadik_oszlop)

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák