Eğer Komutu, Kod Karşılığı

[1Al2Ver]

Merhaba,

Eğer A1= LaM1 ise; F7'ye 1, F6'ya 2, F5'e 3, E9'a X yaz,

Eğer A1= LaM2 ise; I4:I9 aralığına 1, J6'ya 2, J7'e 4, J8'e 3 yaz,

şeklinde alt alta 28 tk.kod yazmak istiyorum,

A1'den seçim yapıldığında önceki seçim silinmeli,

Bu dizi için, yukardaki komutlara ait makro kodlarını öğrenmek istiyorum.

Teşekkür ederim.

 

[metinozlu]

Sub Düğme1_Tıklat()
If Range("a1") = "LaM1" Then
Range("f7").Value = 1
Range("f6").Value = 2
Range("f5").Value = 3
Range("f9").Value = "x"
End If

If Range("a1") = "LaM2" Then
Range("ı4:ı9").Value = 1
Range("j6").Value = 2
Range("j7").Value = 4
Range("j8").Value = 3
End If

End Sub

 

[1Al2Ver]

Sub Düğme1_Tıklat()
If Range("a1") = "LaM1" Then
Range("f7").Value = 1
Range("f6").Value = 2
Range("f5").Value = 3
Range("f9").Value = "x"
End If

If Range("a1") = "LaM2" Then
Range("ı4:ı9").Value = 1
Range("j6").Value = 2
Range("j7").Value = 4
Range("j8").Value = 3
End If

End Sub

Sayın metinozlu, merhaba

Öncelikle teşekkür ederim, ancak acemilikten söylemeyi akıl edemediğim bir ayrıntı var,

A1'den tekrar seçim yapıldığında bir önceki seçim silinmeli, en son seçilen çalışmalı,

Bu isteğime göre kodu revize edebilirseniz memnun olurum,

Saygılarımla.

 

[metinozlu]

Sub Düğme1_Tıklat()
Range("I4:I9").Select
Selection.ClearContents
Range("J6:J8").Select
Selection.ClearContents
Range("E14").Select
Range("F5:F7").Select
Selection.ClearContents
Range("F9").Select
Selection.ClearContents

If Range("a1") = "LaM1" Then
Range("f7").Value = 1
Range("f6").Value = 2
Range("f5").Value = 3
Range("f9").Value = "x"
End If

If Range("a1") = "LaM2" Then
Range("ı4:ı9").Value = 1
Range("j6").Value = 2
Range("j7").Value = 4
Range("j8").Value = 3
End If

End Sub

 

[1Al2Ver]

Sayın metinozlu,

Zahmetleriniz için teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

1 rakamını hücrede sağa yaz, demek için aşağıdaki kod nasıl olmalıdır ?

Range("f7").Value = 1

Teşekkür ederim.

 

[Ayhan Ercan]

1 rakamını hücrede sağa yaz, demek için aşağıdaki kod nasıl olmalıdır ?

Range("f7").Value = 1

Teşekkür ederim.

Hücrede yaz derken
Sağa yaslayarakmı demek istediniz sayın 1Al2Ver?

Eğer Öyleyse

Sub dene()
With Range("F7")
.Value = 1
.HorizontalAlignment = xlRight
End With
End Sub

 

[1Al2Ver]

Hücrede yaz derken
Sağa yaslayarakmı demek istediniz sayın 1Al2Ver?

Eğer Öyleyse

Sub dene()
With Range("F7")
.Value = 1
.HorizontalAlignment = xlRight
End With
End Sub

Sayın Ayhan Ercan,merhaba

Evet istenen hücredeki rakamı sağa yaslayarak yazması,

Ancak kodun tamamı aşağıdaki gibi, ben basit bir ekleme zannıyla bir satır kod örneklemiştim, asıl istediğim aşağıdaki kodda rakamları hücre içinde sağa yaslanmış olarak almak, çünkü o hücrelerde sola yaslı harfler var,

Sub Düğme1_Tıklat()
Range("I4:I9").Select
Selection.ClearContents
Range("J6:J8").Select
Selection.ClearContents
Range("E14").Select
Range("F5:F7").Select
Selection.ClearContents
Range("F9").Select
Selection.ClearContents

If Range("a1") = "LaM1" Then
Range("f7").Value = 1
Range("f6").Value = 2
Range("f5").Value = 3
Range("f9").Value = "x"
End If

If Range("a1") = "LaM2" Then
Range("ı4:ı9").Value = 1
Range("j6").Value = 2
Range("j7").Value = 4
Range("j8").Value = 3
End If

End Sub

İlginiz için teşekkür ederim.

 

[Ayhan Ercan]

Tekrar Merhaba,

Aşağıdaki kodu (kırmızı yerleri) kendinize göre uyarlayın...

Range("[COLOR=red]a1,a2,b4,g6,h2[/COLOR]").HorizontalAlignment = xlRight

 

[1Al2Ver]

Tekrar Merhaba,

Aşağıdaki kodu (kırmızı yerleri) kendinize göre uyarlayın...

Range("[COLOR=red]a1,a2,b4,g6,h2[/COLOR]").HorizontalAlignment = xlRight

Sayın Ayhan Ercan merhaba,

Teşekkür ederim.