Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

CommandButton

Dobrý deň.

V hárku1 v stĺpci A mám určité mená a chcel by som do buttonu nejaký kód, ktorý keď kliknem tak mi tie mená prenesie celý stĺpec do hárku2 stĺpca A. Potom keď vymažem v hárku1 stĺpec A, tak aby to ostalo v hárku2 v stĺpci A. A keď napíšem znovu do toho istého hárka1 stĺpec A tak zase aby to prenieslo do hárka2 stĺpca B. Niečo také existuje? Ak áno Ďakujem za každú radu...
Kabaka123 toto vidím na makro
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    Kabaka123 je offline (nepripojený) Kabaka123

    Kabaka123
    pozri súbor

    nahrala som makro

    Code:
    Sub Makro3()
'
' Makro3 Makro
' Makro zaznamenané 12.3.2016, Marcel
'

'
    ActiveCell.FormulaR1C1 = "meno1"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
    Range("A1:A28").Select
    Range("A1:A28").Select
    Selection.Copy
    Sheets("hárok2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("hárok1").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "meno2"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
    Range("A1:A28").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Selection.Copy
    Sheets("hárok2").Select
    Range("B1").Select
    ActiveSheet.Paste
    Sheets("hárok1").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "meno3"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
    Range("A1:A28").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Selection.Copy
    Range("B1").Select
    Sheets("hárok2").Select
    Range("C1").Select
    ActiveSheet.Paste
    Sheets("hárok1").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "meno4"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
    Range("A1:A28").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Selection.Copy
    Sheets("hárok2").Select
    Range("D1").Select
    ActiveSheet.Paste
    Sheets("hárok1").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "meno5"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A28"), Type:=xlFillDefault
    Range("A1:A28").Select
    Range("A1:A28").Select
    Range("A28").Activate
    Selection.Copy
    Range("B29").Select
    Sheets("hárok2").Select
    Range("E1").Select
    ActiveSheet.Paste
    Sheets("hárok1").Select
End Sub
    Naposledy upravil Kabaka123 : 13.03.16 at 08:02
    0
    Kabaka123 12.03.16 17:55 priradil do Porady
    Kabaka123 12.03.16 17:55 priradil do Porady

    CommandButton

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka