Pozdravljeni! Nekaj časa sem dal "mir", sedaj sem pa spet pred problemom: imam dva makra (enega, priznam, je naredil Matjaž). Prvi mi ob kliku na poljubno celico v stolpcu "I" izpiše črko "X", drugi mi pa iz iz iste vrstice prepiše določene podatke na drug list. Vsak zase delujeta povsem tako, kot sem si zamislil; če pa v prvi makro vstavim drugega, pa stvar enostavno ne deluje. Kaj je narobe?
Prilagam kodo za prvi makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If (Not Intersect(Target, Range("i4:i5000")) Is Nothing) Then
ActiveCell.Value = "X"
Cancel = True
End If
End Sub
... in kodo z vpisanim drugim:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If (Not Intersect(Target, Range("i4:i5000")) Is Nothing) Then
ActiveCell.Value = "X"
Cancel = True
End If
KopirajPodatkeVRačun
End Sub