Function Hesapla(Hucre As Range)
X = Hucre.Text
If Not Hucre.Text = Empty Then
Hesapla = Evaluate("=" & X)
Else
Hesapla = vbNullString
End If
End Function
Elimdeki bu makronun sonuçlarını bazen yinelemem gerekiyor. Yani bazı durumlarda çalışmıyor. Yalnız şöyle bir şey eklemek istiyorum tabloma
Hesapla isminde bir button eklemek istiyorum, yapacağı işlev ise;
sırayla M9,N9,O9,P9,Q9
M10,N10,O10,P10,Q10
.
.
.
M65536,N65536,O65536,P65536,Q65536
hücrelerinin üzerine gelip F2 ye basıp sonrada Enter a basmasını istiyorum. Ama sırayla olması hazırladığım işlem tablosu için çok önemli yani önce m9 un üzerine gelip f2 ye basıp enter a basmalı sonra n9 a gelip bu işlemi yapmalı. bir satır böyle bitince hemen altındaki satıra geçmeli... Bana bir excel dosyasında yollayabilirseniz çözümü çok memnun olurum.
Ãimdiden yardımlarınız için teşekkürler.
X = Hucre.Text
If Not Hucre.Text = Empty Then
Hesapla = Evaluate("=" & X)
Else
Hesapla = vbNullString
End If
End Function
Elimdeki bu makronun sonuçlarını bazen yinelemem gerekiyor. Yani bazı durumlarda çalışmıyor. Yalnız şöyle bir şey eklemek istiyorum tabloma
Hesapla isminde bir button eklemek istiyorum, yapacağı işlev ise;
sırayla M9,N9,O9,P9,Q9
M10,N10,O10,P10,Q10
.
.
.
M65536,N65536,O65536,P65536,Q65536
hücrelerinin üzerine gelip F2 ye basıp sonrada Enter a basmasını istiyorum. Ama sırayla olması hazırladığım işlem tablosu için çok önemli yani önce m9 un üzerine gelip f2 ye basıp enter a basmalı sonra n9 a gelip bu işlemi yapmalı. bir satır böyle bitince hemen altındaki satıra geçmeli... Bana bir excel dosyasında yollayabilirseniz çözümü çok memnun olurum.
Ãimdiden yardımlarınız için teşekkürler.