Soldan ve Sağdan Parçaal Kodu

[ahmedummu]

Merhaba arkadaşlar.

Soldan ve Sağdan formüllerinin makro kodu var mıdır?

Aktif hücrenin 3 sağındaki hücrenin başından ve sonundan birer karakter almak istiyorum. Yardımcı olursanız sevinirim.

 

[askm]

Aşağıdaki şekilde deneyin.

ActiveCell.Value = Left(Cells(ActiveCell.Row, ActiveCell.Column + 3), 1) & Right(Cells(ActiveCell.Row, ActiveCell.Column + 3), 1)

 

[ahmedummu]

Teşekkürler sayın askm. Elinize sağlık.

 

[askm]

Rica ederim.

 

[Orion1]

Alternatif.

Sub sagdansoldan59()
Dim deger As String, sagdan As String, soldan As String
deger = ActiveCell.Offset(0, 3).Value
sagdan = Left(deger, 1)
soldan = Right(deger, 1)
MsgBox "sağdan 1 = " & sagdan & vbLf & "soldan 1 = " & soldan & vbLf & "evrengizlen@hotmail.com"
End Sub