- Katılım
- 1 Mayıs 2023
- Mesajlar
- 2
- Excel Vers. ve Dili
- 2016 türkçe
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
Kod:
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
Kod:
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