iki makroyu aynı anda çalıştırmak

[kubilay93.]

merhaba çalışmış olduğum excel sayfasındaki iki makroyu aynı anda çalıştıramıyorum yardımcı olurmusunuz ikisini aynı anda çalıştırabilmek için bir buton yapmak istiyorum fakat resim makrosu çalıştığı zaman skt makrosundaki buton kayboluyor skt makrosunu çalıştırdığımda ise resimler değişmiyor yada resimler gelmiyor fakat ikisini de ayrı ayrı çalıştırdığımda hiç bir sıkıntı olmuyor

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
' hata kontrolü
On Error GoTo çıkış
'resimleri sil

ActiveSheet.DrawingObjects.Delete
'resim yolunun bulunması

Dim resimyolu As Variant
Dim resim As Object

For satir = 2 To 999

resimyolu = ActiveWorkbook.Path & "\" & Range("b" & satir) & ".jpg"

'resmi oluştur
Set resim = ActiveSheet.Pictures.Insert(resimyolu)

'resmi boyutlandır
With Range("e" & satir)
resim.Top = .Top
resim.Left = .Left
resim.Left = .Left
resim.Width = .Width
End With

Next satir

çıkış:
End Sub

Sub skt()
'
' skt Makro
'

'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Sheets("DATA").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("TARİH").Range("A1:F2"), CopyToRange:=Range("A1:F1") _
        , Unique:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("E4").Select
    Sheets("TARİH").Select
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("D3").Select
    Sheets("TIKLA VE GÖRÜNTÜLE").Select
End Sub

 

[RBozkurt]

.....
Next satir
Call skt
çıkış:
End Sub

Call skt yazdığınız adımda makro çalışır.

 

[kubilay93.]

makrolar çalışıyor sıkıntı yok ama resimlerin gelmesi için butona tıklayınca değil de barkod kısmında değişiklik yapınca resimler geliyor