Hesapla buttonu yapmak istiyorum.

[emraha]

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.

 

[emraha]

SOS gerçekten bu benim için çok önemli yardımlarınızı bekliyorum.....

 

[KuTuKa]

sayın emraha, eden dosya örneği göndermiyorsun birde dosya hazırlanması için boşa zaman harcanmasın

 

[emraha]

dosya örneğimde şirketimle ilgili bazı bilgiler yer alıyorda o nedenden ötürü çekiniyorum yollamaya
sadece boş bir excel tablosuna kod ve buttonu ekleyip forma yollarsanız ben onu kendime uyarlarım

 

[emraha]

http://www.excel.web.tr/viewtopic.php?t=12577
bu linkte yayınladığım excel tablosuna eklenecek

 

[zafer]

Merhaba

Dosya gönderseydiniz daha çabuk sonuç alınırdı.

Aşağıdaki kodları deneyin

Alanı seçip hesaplatmak istiyorsanız selection'u seçin tek tek hücreyi sırasıyla hesaplatmak istiyorsanız range ile başlayan kısmı seçip alanları isteğinize göre yazın
Sub hesaplat()
Dim i As Range
For Each i In Selection 'Range("B18,D18,C18,E18,F18,G18,B19,C19,D19,E19,F19,G19")
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next i

End Sub

Edit : Select kısmını sildim

 

[emraha]

alanı seçmeden hesaplatmak istiyorum. zaten açık olarak ne istediğimi yazdığımı düşünüyorum. ayrıca excel belgemde sitede yer almakta yukarıdaki linke tıklayarak ulaşabilirsiniz

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.

 

[zafer]

Merhaba

Kodları çalıştırmadınızmı

 

[emraha]

yok çalıştırmayı denemedim. sizin yazdığınız yazıdan alanı seçmeden çalıştırılamıyacağını anladığım için denemedim ben alanı seçmeden belirttiğim alanda yenileme yapmasını istiyorum.

 

[zafer]

Merhaba
Ben size iki seçenek sunmuştum alan seçmeden sizin istediğiniz alanlar için kodlar
aşağıdadır.

Sub hesaplat()
Dim i As Range
For Each i In Range("m9:q65000")
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next i

End Sub

 

[emraha]

pardon o zaman çok özür dilerim ben yalnış anlamışım. Hemen deniyorum kodları...

 

[zafer]

Merhaba

Denemeden göndermişim zahmet olmazsa aşağıdaki kodları deneyiniz

Sub renkli_satir_hesaplat()
say = Cells(65536, 13).End(xlUp).Row
For Each i In Range("m9:q6500")
i.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next i
End Sub

 

[emraha]

rica etsem bir butonla linkteki dosyaya ekleyip buraya yollayabilirmisin http://www.excel.web.tr/viewtopic.php?t=12577

 

[zafer]

Merhaba

dosyanız ektedir
Yalnız 65000 satırı hesaplaması çok üzun sürer.

c, d, e.... sütunlarında en son dolu olan satıra kadar

c yi m ye
d yi n ye yaz gibi bir
Makro yazılsa olmazmı.zaman açısından söylüyorum

 

[zafer]

Merhaba

Makro ile hesaplama şekli ekli dosyada bunonu çalıştırınız.
Hangisini isterseniz onu kullanın

 

[emraha]

Evet ikincisi daha iyi duruyor ama aynı işi yapıyor dimi buda?
yani benim için çok önemilide

 

[emraha]

Üzgünüm ama çalışmıyor istediğim gibi...
ben o hesapla makrolarının sonuna kadar hesaplatmayı istiyorum
yani o turuncu alan bitene kadar olan yere misal önce m9 dan m570 (hesapla(c570)) ve biçimi turuncu renkte olan hücreye kadar formülü sürüklemek istiyorum.
sonra ise önce seçilen kısmın alt köşesinden n sütununa ardından o sütununa ...ardından q sütununa formülü sürüklemek istiyorum. o zamanda formül içerisindeki değerler yenileniyor.

 

[emraha]

yani hesapla dedikten sonra komple hesaplamasını istemiyorum
asıl sorunumu yollim size dosya olarak

 

[emraha]

---

sorunu yolluyorum.
m sütununda turuncu alanın birimine kadar sürüklersek formülü ve ardından sürüklenerek seçilmiş alanı n, o , ..., q ya sürüklersek sorunum çözülüyor. ben böyle bir hesaplat makrosu istiyorum.

 

[emraha]

Günaydın herkese...
sorunum üstteki kayıtlı excel dosyasında. Ã?zellikle zafer beyin yardımını bekliyorum