Veri Kaybı Olmadan Hücre Birleştirmek

[saruvbek]

[A1] içeriği 10
[B1] içeriği 5
iken [a1] ve [b1] hücreleri birleştiriliyor normal olarak içeriğin 10 olması gerekirken
(sol daki ilk hücrenin değeri alınıp [b1] içeriğinin silinmesi gerekirken)

[A2] hücresine toplam(A1:B1) denildiğinde 15 değerini gösteriyor. [a1] ve [b1] hücrelerini çözmedende 5 değerini göremiyorum.
Bu mümkünmü demiyeceğim çünkü yapıldığını gördüm
sorum nasıl yapıldığı
Teşekkürler

 

[saruvbek]

Bi fikri olan

bir fikri olan yokmu yoksa konumu anlaşılmadı bilemiyorum 50 kişi gözlemiş cevap yok

 

[danersin]

Anlatığınız şey anlattığınız hali ile olmaz. Bir yanlış anlamanız veya yanlış aktarmanız söz konusu olsa gerek. Siz "Bu mümkünmü demiyeceğim çünkü yapıldığını gördüm" diyerek "bu olmaz" demeyi zorlaştırmışsınız. Böyle bişeyi nerde gördünüz gösterirseniz onun nasıl yapıldığını anlatacaktır arkadaşlar.

 

[sinbade]

Eğer örnek dosya ekler ve sorunu daha açık bir dille ifade edersen daha kolay yanıt alırsın.
50 kişi bakmış .. demek ne istediğini anlamamış..

 

[kayserciyes]

arkadaşım sorun için kendin örnek bir dosya eklersen
cevaplanması ve anlaşılması daha kolay olacaktır

 

[saruvbek]

Evettt Amaa

incelediğim dosya hakediş dosyası olduğu için malesef göndermem olanaksız

yapıldığını evet kesinlikle gördüm ve hiç şüphem yok az çok excel bilirim ufak tefek makro yazacak seviyede en azından
çok uğraştım nasıl yapıldığını anlamak için fakat onuda bulamadım

anladığım kadarı ile bunu yapan kişi bir ilki başarmış olmalı kafası hileye çalışsada

peki şöyle yapabilirim alabilirsem bi ekran görüntüsü alıp kısmi resim ekleyim eğer olursa tabii

 

[kayserciyes]

arkadaş yeni bir dosyada bir tane örnek yap onu gönder şirket dosyasını yollama

 

[omerceri]

Aşağıdaki kodları ilgili sayfanın kod sayfasına yazın. Bu kodlar herhangi bir satırda A ve B sütunlarını birlikte seçildiğinde Bu iki hücreyi birleştirir ve bu iki hücrenin toplamını birleştirilen hücreye yazar.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If IsNumeric(Selection(1)) And IsNumeric(Selection(2)) And Selection.Columns.Count = 2 And Selection(1).Column = 1 And Selection(2).Column = 2 Then

a = Selection(1) + Selection(2)
Selection.Merge
ActiveCell.Value = a
End If

End Sub

 

[omerceri]

Üsteki Mesajı düzelttim

 

[saruvbek]

Kod çalışıyor fakat dosyayı incelermisiniz benim dediğim

ekteki dosyadan mevzuyu daha iyi anlayabileceğinizi umuyorum

 

[parametre]

bunumu gerceklestirmek istiyordunuz