KOD kopyalama

[karahan61]

Arkadaşlar bir çalışma sayfasına birden fazla kod kopyalayabilir miyiz? kopyalanırsa Nelere dikkat etmeliyiz.

 

[Mahir64]

Arkadaşlar bir çalışma sayfasına birden fazla kod kopyalayabilir miyiz? kopyalanırsa Nelere dikkat etmeliyiz.

Merhaba,

Ne gibi kodlar kopyalayacaksınız.

Bir kaç örnek verirmisiniz.

 

[karahan61]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "61187"

Cells.FormatConditions.Delete
If Intersect(Target, Range("C10:BH130")) Is Nothing Then Exit Sub
On Error Resume Next
With Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column))
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 40
End With
With Range(Cells(10, Target.Column), Cells(Target.Row - 1, Target.Column))
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 40
End With

ActiveSheet.Protect "61187"
End Sub
......................................................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then Target.Offset(1).Select: _
MsgBox "Hücrede Formül Var, İşlem Yapamazsınız": Exit Sub
End Sub

 

[karahan61]

bu 2 kod beraber çalışması lazım