macroda hata

[engam]

macroya formülü giriyorum ama expected and sub hatası veriyor.neden acaba

 

[mehmett]

Makronuzu görmeden bir şey diyemeyiz. Dosyanızı veya makro kodlarınızı görebilir miyiz?

 

[engam]

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) = False Or Target > 4 Or Target < 1 Then Exit Sub
deg = Array("ALMA", "SAT", "AL", "TUT")
Target = deg(Target - 1)
End Sub

 

[engam]

1=ALMA 2=SAT 3=AL 4=TUT diye yazmak istiyorum,veri aldığım zaman koşullu biçimlendirmede bu rakamları gördüğünde karşısına bu sözcükleri yazsın istiyorum.birde macro ilk defa yapacam ayrıntılı anlatırsanız sevinirim saygılar,eğer macro dışında bir yöntem varsa oda olur

 

[inxtria]

Aşağıdaki dosyadaki gibi bir şey mi istiyordun?
Ben anladığım kadarıyla düzelttim.

 

[engam]

evet ama verileri otomatik aldığımdan rakamların yerine direk yazmasını istiyorum

 

[Kemal Demir]

Sub Ornek()
'1.Satır ile En son satırı İfade Eder
For x = 1 To Cells(65536, 1).End(xlUp).Row
'1.Kolon ile 3.Kolona kadar ifade eder
For y = 1 To 3
'eğer x,y koordinatlarında değer 1 ise x,y koordinatlarındaki değerleri Alma yap
If Cells(x, y) = "1" Then
Cells(x, y) = "Alma"
End If
'eğer x,y koordinatlarında değer 2 ise x,y koordinatlarındaki değerleri Sat yap

If Cells(x, y) = "2" Then
Cells(x, y) = "Sat"
End If
'eğer x,y koordinatlarında değer 3 ise x,y koordinatlarındaki değerleri tut yap

If Cells(x, y) = "3" Then
Cells(x, y) = "Al"
End If
'eğer x,y koordinatlarında değer 4 ise x,y koordinatlarındaki değerleri Al yap

If Cells(x, y) = "4" Then
Cells(x, y) = "Tut"
End If
Next
Next
End Sub

Başlangıc aşamasında böyle kullanmanız konuya hakim olmanızı sağlar diye dusnuyorum.