Tevfik_Kursun
Altın Üye
- Katılım
- 30 Temmuz 2012
- Mesajlar
- 3,602
- Excel Vers. ve Dili
- Office 2016 Pro - Türkçe 64 Bit
- Altın Üyelik Bitiş Tarihi
- 12-02-2029
Merhaba Arkadaşlar,
makrolar bulundukları sayfada düzgün olarak çalışmaktalar. Case yöntemiyle birleştirilebilirler diye düşündüm ama başaramadım. Hangi yöntemle olursa olsun kursor A:C sütunlarında ise ilk makro, H sütununda ise 2. makronun çalışmasını istiyorum. Yardımcı olursanız çok makbule geçer.
Saygılarımla
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set Alan = Range("B1:B154")
Application.MoveAfterReturnDirection = xlToRight
If Intersect(Target, [B1:B154]) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, -1) = Date
Application.ScreenUpdating = False
Target.Offset(0, 1).Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range([F1].Text)) Is Nothing Then
With Range([G1].Text)
.FormatConditions.Delete
.FormatConditions.Add xlCellValue, xlEqual, "=" & Target.Address
.FormatConditions(1).Interior.ColorIndex = 6
.FormatConditions(1).Font.Color = -16776961
End With
End If
End Sub
Saygılarımla