Arkadaşlar aşağıdaki iki makronun birleştirilerek tek makro olarak çalışmasını istiyorum. Ancak Makro1() ile Makto2() farklı excel çalışma sayfaları için yazılmıştır. Yani Makro1() “C” dizini altında (C:\ veri.xls) dosyası için, Makro2() de (C:\sonuç.xls) dosyası için yazılmıştır.Bu iki makroyu nasıl birleştirek çalıştırabilirim.
Sub Makro1()
Dim Nesne As Shape
For Each Nesne In ActiveSheet.Shapes
If Nesne.Type <> 8 And Nesne.Type <> 12 Then
Nesne.Delete
End If
Next
End Sub
Sub Makro2 ()
Dim BUL As Range, ADRES As String
Set BUL = Range("A1:AD1000").Cells.Find("isim", , , xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
Range("A" & BUL.Row + 1 & ":AD" & BUL.Row + 1000).ClearContents
Set BUL = Range("A1:AD10000").Cells.FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
End Sub
Sub Makro1()
Dim Nesne As Shape
For Each Nesne In ActiveSheet.Shapes
If Nesne.Type <> 8 And Nesne.Type <> 12 Then
Nesne.Delete
End If
Next
End Sub
Sub Makro2 ()
Dim BUL As Range, ADRES As String
Set BUL = Range("A1:AD1000").Cells.Find("isim", , , xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
Range("A" & BUL.Row + 1 & ":AD" & BUL.Row + 1000).ClearContents
Set BUL = Range("A1:AD10000").Cells.FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
End Sub