2 FARKLI Worksheet_Selection olduğu zaman hata veriyor nasıl birleştirebilirim sorunsuz çalışması için hepsinin ? ?

[MOZCELİK53]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pencere As FileDialog
If (ActiveCell.Column = 21) Then
Set pencere = Application.FileDialog(msoFileDialogOpen)
pencere.Filters.Add "Resim Dosyaları", "*.png,*.jpg"
If (pencere.Show <> 0) Then
ActiveCell = pencere.SelectedItems(1)

End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Intersect(Target, Range(["C3:C85"])) Is Nothing Then Exit Sub '
If Len(Target) <> 11 Then
MsgBox "TC Kimlik No 11 Rakam OLMALI EĞER BOŞSA YOKSAY", vbAbortRetryIgnore, "Hatalı !"
'Target.Text = ""
Exit Sub
End If

Dim mod1 As Integer, mod2 As Integer, TC1 As Integer, TC2 As Integer, TC3 As Integer, TC4 As Integer, TC5 As Integer, TC6 As Integer, TC7 As Integer, TC8 As Integer, TC9 As Integer, TC10 As Integer, TC11 As Integer
TC1 = Mid(Target, 1, 1)
TC2 = Mid(Target, 2, 1)
TC3 = Mid(Target, 3, 1)
TC4 = Mid(Target, 4, 1)
TC5 = Mid(Target, 5, 1)
TC6 = Mid(Target, 6, 1)
TC7 = Mid(Target, 7, 1)
TC8 = Mid(Target, 8, 1)
TC9 = Mid(Target, 9, 1)
TC10 = Mid(Target, 10, 1)
TC11 = Mid(Target, 11, 1)

mod1 = ((((TC1 + TC3 + TC5 + TC7 + TC9) * 7) - (TC2 + TC4 + TC6 + TC8)) Mod 10)
mod2 = ((TC1 + TC2 + TC3 + TC4 + TC5 + TC6 + TC7 + TC8 + TC9 + TC10) Mod 10)

If mod1 = TC10 And mod2 = TC11 Then '
MsgBox Target & " TC KİMLİK DOĞRU ASLANIM", vbInformation, "Bilgilendirme !"

Else
MsgBox Target & " YANLIŞ TC ASLANIM HOPSS!...", vbAbortRetryIgnore, "Dikkat !"

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 6 Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
Cells.FormatConditions.Delete
Range("A89") = 1
With Range("B" & Target.Row).Resize(1, 19)
.FormatConditions.Add xlExpression, , "=$A$89=1"
.FormatConditions(1).Borders.LineStyle = 0
.FormatConditions(1).Interior.ColorIndex = 28
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Font.Colorlndex = 5
End With
Range("A:S").FormatConditions.Add xlExpression, , "=$A6<>"""""
Range("A:s").FormatConditions(2).Borders.LineSty1e = 0
Application.ScreenUpdating = True
End Sub

 

[1Al2Ver]

Merhaba,

Ek'li dosyada soru ve sayın Korhan Ayhan'ın çözümü bulunmaktadır,

Siz kendinize göre düzenleyebilir siniz,

Teşekkür ederim.

Link ; https://s7.dosya.tc/server20/d2cri5/_Worksheet_Change_Kodunu_Teke_Indirmek__28.11.2021.xlsx.html