Hangi hücrede veri varsa istenilen hücreye o gelsin

[SanaLSukuL]

A2 B2 C2 D2 hücrelerinden hangisinde veri varsa o veri belirlediğimiz A5 hücresine yazsın. Yardımcı olursanız sevinirim teşekkürler.

 

[Merhum İdris SERDAR]

=EĞER(A2<>0;A2;EĞER(B2<>0;B2;EĞER(C2<>0;C2;EĞER(D2<>0;D2;EĞER(E2<>0;E2;"")))))

formülünü deneyin.

 

[Mahmut Bayram]

Makrolu çözüm isterseniz eğer

Sub doluhucre_yaz()
Dim ran
Sheets("Sayfa1").Activate
ran = range("A2:E2").Select
For Each ran In Selection
If ran > 0 Then
   range("A5").Value = ran.Value
End If
Next
End Sub

 

[SanaLSukuL]

Sn. yurttas teşekkür ederim
bu form doldurmaişleri çok zorinanınız ki word dosyasında hazırlasak o zamanda hesap makinesi ile uğraşmamız lazım hiç işin içinden çıkamazdık. SİZLERE NE KADAR TEŞEKKÜR ETSEM azdır emeğinize sağlık.

şöyle bir uyarı getirebilir miyiz acaba öğretmen yanlışlıkla 2 hücreye veri girsin ama bir tanesi o hücreye yazılacağından hata mesajı verdirebilir miyiz.
mesela: hatalı giriş yaptınız gibi
teşekkürler

 

[SanaLSukuL]

Makrolu çözüm isterseniz eğer

Sub doluhucre_yaz()
Dim ran
Sheets("Sayfa1").Activate
ran = range("A2:E2").Select
For Each ran In Selection
If ran > 0 Then
   range("A5").Value = ran.Value
End If
Next
End Sub

Partner hocam ben bunu düğmeye mi atayacağım direkt vba ya yazsam çalışırmı bu o hücrede sizler kadar işin erbabı değilim inan ki anlayamadım

 

[Merhum İdris SERDAR]

=EĞER(BAĞ_DEĞ_DOLU_SAY(A2:E2)>1;"BİRDEN FAZLA VERİ GİRDİNİZ!...";EĞER(A2<>0;A2;EĞER(B2<>0;B2;EĞER(C2<>0;C2;EĞER(D2<>0;D2;EĞER(E2<>0;E2;""))))))

Bunu deneyin.

 

[SanaLSukuL]

mükemmel oldu tşk ler ilgileriniz için saolun

 

[a.akyurek]

A2 B2 C2 D2 hücrelerinden hangisinde veri varsa o veri belirlediğimiz A5 hücresine yazsın. Yardımcı olursanız sevinirim teşekkürler.

Veri sayı mı yoksa metin mi?

 

[SanaLSukuL]

Say&#305; &#214;rnek Dosyada A&#231;&#305;klama Yapm&#305;&#351;t&#305;m Saolsunlar Yard&#305;mci Oldular Arkada&#351;lar