Birden fazla sayfaya kod yazma

[serif11]

Arkadaşlar selam.
200 ün üzerinde sayfaya aynı kodu tek seferde nasıl yazarım?
Şimdiden teşekkürler.

 

[Asri]

Örnek dosya ve kodu ekler misiniz?

Belkide aynı kodu yazmanıza gerek yoktur. Tek bir kod ile tüm sayfalarda işlem yapabilir siniz.

 

[serif11]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$5" And Cells(Target.Row, "I") <> "" Then
ActiveSheet.Name = Cells(Target.Row, "I")
End If

Select Case Target.Column
Case Is = 1: Target.Offset(, 1).Select
Case Is = 2: Target.Offset(, 1).Select
Case Is = 3: Target.Offset(, 1).Select
Case Is = 4: Target.Offset(, 1).Select
Case Is = 5: Target.Offset(, 1).Select
Case Is = 6: Target.Offset(, 1).Select
Case Is = 7: Target.Offset(, 1).Select


Case Is = 8: Target.Offset(1, -6).Select

Case Else

End Select
On Error GoTo son
son:

End Sub

 

[Asri]

Aşağıdaki kodu VBA bölümünde Buçalışmakitabı na kopyalayıp deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  If Target.Address = "$I$5" And Cells(Target.Row, "I") <> "" Then
     ActiveSheet.Name = Cells(Target.Row, "I")
  End If

  Select Case Target.Column
   Case Is = 1: Target.Offset(, 1).Select
   Case Is = 2: Target.Offset(, 1).Select
   Case Is = 3: Target.Offset(, 1).Select
   Case Is = 4: Target.Offset(, 1).Select
   Case Is = 5: Target.Offset(, 1).Select
   Case Is = 6: Target.Offset(, 1).Select
   Case Is = 7: Target.Offset(, 1).Select
   Case Is = 8: Target.Offset(1, -6).Select
  Case Else
  End Select
On Error GoTo son
son:
End Sub

 

[serif11]

İlginize teşekkür ederim. Yarın dener sonucu yazarım

 

[serif11]

İşlem tamam.
Teşekkürler