hücredeki rakama göre değer atama?

[kayarender]

hücreye girilen değere göre farklı bir alanda bulunan hücreye değer ataması yapmam gerekiyor. eğer fonksiyonu dışında nasıl yaparım diye düşündüm.

 

[mehmett]

Makrolu bir çözüm.

Ekteki dosyaya bakın.

 

[kayarender]

teşekkürler

çok teşekkür ederim. fazla olmazsa!! değerleri farklı bir sayfadan girseydik ne yapmam gerekir kodlar üzerinde

 

[mehmett]

Değerleri Sayfa1'den giriyorsanız ve x'leri Sayfa2'de görmek istiyorsanız aşağıda kırmızı renkle belirtilen ilaveleri yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c10:c21]) Is Nothing Then Exit Sub
sat = Target.Row
deg = Target
If deg < 1 Then Exit Sub
If deg > 3 Then Exit Sub
[COLOR=red]Sheets("sayfa2").[/COLOR]Range("h" & sat & ":j" & sat) = ""
[COLOR=red]Sheets("sayfa2").[/COLOR]Cells(sat, 7 + deg) = "x"
End Sub

 

[kayarender]

üzgünüm ama

bu şekilde tablolar yine aynı yerlerde olması gerkiyor dimi. istediğim bir alandaki veri kontrolu sonunda istediğim syfada istediğim hücre aralığında de sonuç olsun istiyorum.

 

[mehmett]

Ekteki dosyaya bakın.