H 2 ye Kod Girilnce A,B,C,D...G de

[mt621]

H2 hücresine 100 yazdığımızda A2 hücresine X H3 e 101 girdiğimizde A3,B3 e X koysun,H4 e 102 yazınca A4,B4,C4 hücrelerine X yazdırabilirmiyiz şimdiden yardımlarınız için teşekkürler.

 

[nazif74]

İstediğiniz Böyle Bir Şey Mi?

 

[Yalova]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H2") = 100 Then
Range("A2") = "X"
Else
Range("A2") = ""
End If
If Range("H3") = 101 Then
Range("A3:B3") = "X"
Else
Range("A3:B3") = ""
End If
If Range("H4") = 102 Then
Range("A4:C4") = "X"
Else
Range("A4:C4") = ""
End If
End Sub

 

[zafer]

Merhaba

Hücrelerinize formüllü uygulayınız.
A2 hücresine
EĞER(H1=100;"X";"")
A3
EĞER(H2=101;"X";"")
B3
EĞER(H2=101;"X";"")

formülü isteğinize göre hücrelere yazınız.
Yalnız sorunuzu tam olarak sormadığınızı zannediyorum..(Başlığınıza göre)Şöyleki sonra H5 'e 104 yazdığımda şu hücreyede ilave edelim derseniz arkadaşları oyalamış oluruz.Sorunuz tam olarak bu şekildemi..

 

[mt621]

tam istediğim değil

benim tam istediğim 100,101,102,103 kodlarını H hücresinin herhangi bir yerine örnek H777 ye girdiğimde a,b,c nin 777 sini işaretleyebilelim.

 

[Korhan Ayhan]

Selamlar,

Hangi kodu yazınca hangi sütunlara "X" işareti eklenecek açık bir şekilde belirtirmisiniz.

 

[zafer]

Merhaba

Önce son sayı 102 idi şimdi 103 oldu tam olarak açıkladığınıza eminmisiniz.

Kodları sayfanızın kod sayfasına yapıştırınız
H sütununa girdiğiniz (sayı -99) kadar sizin isteğinize göre hücrelere X yazar.


Private Sub Worksheet_Change(ByVal Target As Range)
son = Cells(65536, 8).End(xlUp).Row
If Application.Intersect(Target, Range("h1:h" & son)) Is Nothing Then Exit Sub
For i = 1 To son
If Cells(i + 1, 8) <> "" Then
d = Cells(i + 1, 8) - 99
For y = 1 To d
Cells(i + 1, y) = "x"
Next
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Do&#287;ru anlad&#305;ysam a&#351;a&#287;&#305;daki kod i&#351;inizi g&#246;recektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
    If Target = 100 Then Range("A" & Target.Row & ":B" & Target.Row) = "X"
    If Target = 101 Then Range("B" & Target.Row & ":C" & Target.Row) = "X"
    If Target = 102 Then Range("C" & Target.Row & ":D" & Target.Row) = "X"
    If Target = 103 Then Range("D" & Target.Row & ":E" & Target.Row) = "X"
    If Target = 104 Then Range("E" & Target.Row & ":F" & Target.Row) = "X"
    If Target = 105 Then Range("F" & Target.Row & ":G" & Target.Row) = "X"
    If Target = "" Then Range("A" & Target.Row & ":G" & Target.Row) = ""
End Sub

 

[Yalova]

hata nedeniyle &#231;ift g&#246;nderdim. &#214;z&#252;r dilerim.

 

[Yalova]

Sn.Cost Control kodunuzda ufak bir düzeltem yaptın.Sanırım istenen bu

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
    If Target = 100 Then Range("A" & Target.Row & ":A" & Target.Row) = "X"
    If Target = 101 Then Range("A" & Target.Row & ":B" & Target.Row) = "X"
    If Target = 102 Then Range("A" & Target.Row & ":C" & Target.Row) = "X"
    If Target = 103 Then Range("A" & Target.Row & ":D" & Target.Row) = "X"
    If Target = 104 Then Range("A" & Target.Row & ":E" & Target.Row) = "X"
    If Target = 105 Then Range("A" & Target.Row & ":F" & Target.Row) = "X"
    If Target = 106 Then Range("A" & Target.Row & ":G" & Target.Row) = "X"
    If Target = "" Then Range("A" & Target.Row & ":G" & Target.Row) = ""
End Sub

 

[mt621]

Sayın yalova

hücreleri ekleyebiliyorum (107,108..)gibi fakat bir şey ekleyebilirmiyiz örnek 107 yazdığımızda sadece A ve C ye birde 108 yazdığımızda A,C ve E yi işaretleye bilirmiyiz

 

[zafer]

Merhaba

Son isteğinizi arkadaşlarımın kodlarına ilave olarak ekledim.
Siz artık 109, 110 gibi değerlerin karşılıkları ne olacak derseniz kodlamanın mantığına bakarak çözeceğinizi zannediyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
    If Target = 100 Then Range("A" & Target.Row & ":A" & Target.Row) = "X"
    If Target = 101 Then Range("A" & Target.Row & ":B" & Target.Row) = "X"
    If Target = 102 Then Range("A" & Target.Row & ":C" & Target.Row) = "X"
    If Target = 103 Then Range("A" & Target.Row & ":D" & Target.Row) = "X"
    If Target = 104 Then Range("A" & Target.Row & ":E" & Target.Row) = "X"
    If Target = 105 Then Range("A" & Target.Row & ":F" & Target.Row) = "X"
    If Target = 106 Then Range("A" & Target.Row & ":G" & Target.Row) = "X"
    If Target = 107 Then Range("A" & Target.Row & ",c" & Target.Row) = "X"
    If Target = 108 Then Range("A" & Target.Row & ",C" & Target.Row & ",E" & Target.Row) = "X"
    If Target = "" Then Range("A" & Target.Row & ":G" & Target.Row) = ""
End Sub

 

[mt621]

Tam istediğim buydu teşekkürler

aradığım buydu çok teşekkürler inanın çok işime yarayacak