- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,874
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;
aşağıda vermiş olduğum kırmızı kodda ki yerleri ;
uygulama adresini olarak belirtebilirmiyim ?
yani geçerli olacak kısımlar : B19 ile B325 gibi mesela.. bu şekilde diğer
E ve D ye 19 ve 325 adreslerini nasıl ekleyebilirim ?
aşağıda vermiş olduğum kırmızı kodda ki yerleri ;
uygulama adresini olarak belirtebilirmiyim ?
yani geçerli olacak kısımlar : B19 ile B325 gibi mesela.. bu şekilde diğer
E ve D ye 19 ve 325 adreslerini nasıl ekleyebilirim ?
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String, b As String
On Error Resume Next
a = Replace(Replace(Selection.Address, [COLOR="Red"]"B", "D"), "E", "D"[/COLOR])