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 SubMod. Edit. Kooditagit.
Aihe on jo aika vanha, joten et voi enää vastata siihen.