MS Excel

Tak jsem na to přišel. Kdyby to někdo potřeboval:

Private Sub cmdSparovat_Click()
Dim selRange As Range
Dim vysledek As Double

koupit = REkoupit.Value
prodat = REprodat.Value
vysledek = Range(prodat) - Range(koupit)

If koupit = "" Then
i = MsgBox("Zadáváte odkaz na špatnou buňku. Bez obsahu!", vbOKOnly + vbCritical, "Spárovat obchod")

Else

Range("AA1") = Range(koupit).Value
Set selRange = Range(koupit)
selRange.Interior.ColorIndex = 19 'pouze obarví uživatelem vybranou bunku
selRange.End(xlToRight).Activate 'aktivuje 1. bunku napravo od vybrané
ActiveCell.Interior.ColorIndex = 19
ActiveCell = "Spárováno"

End If

If prodat = "" Then
i = MsgBox("Zadáváte odkaz na špatnou buňku. Bez obsahu!", vbOKOnly + vbCritical, "Spárovat obchod")
Else
Range("AB1") = Range(prodat).Value
Set selRange = Range(prodat)
selRange.Interior.ColorIndex = 19
selRange.End(xlToRight).Activate
ActiveCell.Interior.ColorIndex = 19
If Range(prodat) - Range(koupit) > 0 Then
ActiveCell = "Zisk ve výši " & vysledek
ElseIf Range(prodat) - Range(koupit) < 0 Then
ActiveCell = "Ztráta ve výši " & vysledek
End If


End If

Unload Me

End Sub

Sice je to takový "odrbaný", protože vedle těch buněk musí být nějaké hodnoty, ale zatim mi to takto stačí.citovat