Hücre Birleştirmek ve toplama işlemi ??

Sayın danersin

iki sorum daha olacak
1- Sayfa a hüm hüçrelerde toplama işelemi yapılıyor.
oysa bizim diğer hüçrelerde bazı işlemlermiz var ve formüllermiz var .
bu onları bozmazmı???????

2-tek bir hüçrede yapabilirmiyiz???
bu işlemi her hangi bir hüçrede nasıl yapabiliriz ??? :hey:

Teşekkürler
 
Neden tüm hücelerde yapmaya kalkıştıysam :?
Ayrıca Evalueate ile 2. bir sayfayada gerek yoktu , teşekkür @raider
Birde bu şekilde deneyin.
 
sevgili danersin
işte bu mükemel

fakat örneğin içinde bu not var ne demek tam anlamadım


KISITLAR
İlk karakter bir sayı olacak
'= ile bitecek
abi mükemlesiniz çok çok teşekkürler
 
Eeee bu kadar iddialı konuşmamak gerekmiş.
Bu çözümde emeği geçenlein ellerinden öperim. :bravo: :bravo:
Evaluate komutu bilmessen daha çoookk el öpersin.
Tebrikler.
 
Bu forumun en büyük faydası şu olsa gerek. On yıldır excel kullanıyorum bir defa bile böyle bir ihtiyac duymadım. Benzer şeyleri text'lerle kullanıyordum ancak işin içine hesapta girince biraz farklıymış.

@nihatjeoloji
Hücreye -3+5= diye bir işlem yapın yada = koymayın o zaman anlayacaksınız kısıtlarını
 
Sevgili danersin

o kunuyu anladımda fakat genede bir durum var

istediğim hüçrede toplama işini yapamıyorum.

yani yazılan formülü istediğim hüçrede işlem görsün :hey:


çok Teşekkürler
 
Kodlardaki bu satırda
cells(1,1) yerine istediğiniz hücre adresini belirtin. (2 yerdede)

If Target.Address = Cells(1, 1).Address And Cells(1, 1) <> "" Then
 
Sevgili danersin
vaybeee bu ne hız abi tek kelime ile mükemelin ötesindesiniz.

özel bir soru
siz dün gece hiç uyumadınızmı?????
bu sabah saat 6' da ben bıraktım ve siz hala intrnetyidiniz


çok çok teşekkürler
çok çok sağolun
her şey ama her şey gönlünüzce olsun
 
Sayın danersin

Valla bir şey daha soracam ne olur kusura bakmayın.
kızmasınız dimi

bu formülü aynı sayfada bir kaç hüçrelede uygulamak istiyorum
olabilirmi acba????

Teşekkürler
 
İlk üç satırda 3 hücre için yazdım, istediğiniz kadar hücre için çoğaltabilirsiniz. her hücre için bir satır eklenecek.

Sanırım bu sorunla ilgili bir başlık daha açtınız. O başlık kimse anlayamadığı için cevapsız duruyor. O başlığın altına " sorun halloldu" gibi bir mesaj atarsanız iyi olur.



[vb:1:ba39e0952e]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(1, 1).Address And Cells(1, 1) <> "" Then GoTo 10
If Target.Address = Cells(2, 2).Address And Cells(2, 2) <> "" Then GoTo 10
If Target.Address = Cells(3, 3).Address And Cells(3, 3) <> "" Then GoTo 10
GoTo son:
10
If Right(Target.Text, 1) = "=" Then
a = Left(Target.Text, Len(Target.Text) - 1)
Else
ry = Application.WorksheetFunction.Find("=", Target.Text, 1)
a = Left(Target.Text, ry - 1)
End If
If IsError(Evaluate(a)) = False Then Target = a & "=" & Evaluate(a)
son:
End Sub[/vb:1:ba39e0952e]
 
Sevgili danersin
vala kusyra bakmayın sizide bay yordum
ne olur kusurumu bakmasınız dimi

bir şey daha ekliyebilirmiyiz
oda şu,

(B2) hüçresinde diyelim ki tolama işlemiz bitti [3*2-2=4]
(B3) hüçresinde // // // // [2+3+2=7]
sonuçlanan (4) ile (7) (B4) hüçresinde'de toplansın

buda olabilirmi

Teşekkürler
 
Daha önce okuduğumda ne sorduğunuzu pek anlamamıştım.
Galiba bu formül işinize yarar. Makro ile yapmak daha zor geldi.


=SAÐDAN(B2;UZUNLUK(B2)-BUL("=";B2;1))+SAÐDAN(B3;UZUNLUK(B3)-BUL("=";B3;1))
 
Sevgili Denersin

tek kelime ile mükemelsiniz
çok sağolun
Teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst