Nekako mi je uspelo, da v listu "Delo" izberem dve celici, jih skopiram in nato prilepim v list "Seznam". Obstaja možnost, da se zmotim in isti zapis podvojim, kar pa nebi bilo vredu. Zato bi potreboval dopolniti makro, da preveri, če zapis že obstaja in če je temu tako, bom dodal MsgBox.
Se Zahvaljujem za pomoč.
Koda: Izberi vse
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveCell.FormulaR1C1 = "=SUMIF(R5C4:R200C4,OFFSET(RC,0,-22),R5C24:R200C24)"
ActiveCell.Select
ActiveCell.Offset(0, -22).Range("W1,A1").Select
ActiveCell.Offset(0, -22).Range("A1").Activate
Selection.Copy
Sheets("Seznam").Visible = True
Sheets("Seznam").Select
ActiveCell.Offset(1, 0).Range("A1").Select
'__ Tukaj bi potreboval, da preveri, ali zapis že obstaja __________
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.Visible = False
Sheets("Delo").Select
Application.ScreenUpdating = True
End Sub