Pitäisi saada kyseiseen pätkään sellainen toiminto että jos B9 onkin jo kyseisessä taulukossa niin antaa jonkun "herjauksen" eikä siirrä ko. lukua kyseiseen taulukkoon.
Private Sub CommandButton1_Click() Range("B9").Select Selection.Copy Sheets("39").Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=False Application.CutCopyMode = False Selection.Insert Shift:=xlDown Sheets("Syöttö").Select Range("B9").Select ActiveCell.FormulaR1C1 = "" Range("B9").Select End Sub
Mod. Edit. Kooditagit.
Aihe on jo aika vanha, joten et voi enää vastata siihen.