- Katılım
- 25 Haziran 2006
- Mesajlar
- 183
- Excel Vers. ve Dili
- Excel 2003 TR SP2
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.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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ımMakrolu çözüm isterseniz eğer
Kod: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
Veri sayı mı yoksa metin mi?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.