bir hücreye iki veri girisi yapilir mi

[dennisf06]

A1 hücresine iki tane veri girisi yapilabilir mi? mesela A1 hücresine tikladigim zaman 20+5 gibi iki veri girisi yapmak istiyorum. hücre icerisinde 25 yani verilerin toplamini ikinci rakam 5 i baska bir hücrede görmek istiyorum. veya hücreye tikladigim zaman hücre iki parcaya ayrilir mi 20-5 seklinde yazabilirmiyim. sonucta A1 de veri toplamini ikinci rakami baska bir hücrede görmek istiyorum. excel de bunun icin bir yol var mi acaba ? Tesekkür ederim. Saygilar.

 

[Necdet]

Kafam karıştı

 

[dennisf06]

bir kez daha deniyelim. hücre icerisine iki rakam girisi olacak. hücre icerisinde toplam olacak, ikinci rakam baska bir hücreye aktarilacak. böyle bir sey olur mu acaba. Tesekkür ederim.

 

[Necdet]

Halaa kafam karışık.

Hem birlikte iki değer girişi olacak, hem de ikinci değer başka hücreye aktarılacak, neden?

Neden işin başındayken exceli excel olarak kullanmıyorsunuz da, sonradan böyle birşey yapmak istiyorsunuz.

İşte bu yüzden kafam karıştı, karışıyor. Ben çözüm olur mu olmaz mı diye sorgulamıyorum neden böyle şeyleri hangi gerekçekerle yapıyorsunuz, merak ettiğim için soruyorum.

Ha bu arada uygun şartta ise hücredeki bilgiler ayrılabilir.

 

[dennisf06]

Yüzlerce müsterilik siparis tablom var.bir ürün icin örnek veriyorum. ekmek siparislerini istege göre tabloya yaziyorum. ama bazen müsterinin birisi 20 ekmek ama 2 tanesi susamli olsun diyor. yüzlerce müsterilik bir tabloda bunun icin ayri bir hücre olusturmak istemiyorum. Her zaman her müsteride olan bir durum degil bu. her soru ihtiyactan doguyor.benim ögrenmek istedigimde ayni hücre icerisinde tabloyu degistirmeden bu isi cözmek. Tesekkür ederim.

 

[Ferhat Pazarçevirdi]

Eğer, ayrı bir hücre (veya sütun) yaratmak istemiyorsanız, giriş yaptığınız hücrenin Açıklama'sından faydalanabilirsiniz.

Aşağıdaki kodları, veri girişi yaptığınız Sayfa'ya adapte ediniz.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim comm As Comment
    Dim hcr As Range
    Dim bul As Integer
    Dim ikinciRakam As String
    
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        
        If Target.Cells.Count > 1 Then
            On Error Resume Next
            For Each hcr In Target.Cells
                If IsEmpty(hcr) Then
                   hcr.Comment.Delete
                End If
            Next
            On Error GoTo 0
        
        Else
            If IsEmpty(Target) Then
                Target.Comment.Delete
                Exit Sub
            End If
            
            bul = InStr(1, Target.Formula, "+")
            
            If bul = 0 Then
                ikinciRakam = ""
                On Error Resume Next
                Target.Comment.Delete
                Exit Sub
            Else
                ikinciRakam = Mid(Target.Formula, bul + 1, Len(Target.Formula) - bul + 1)
            End If
            
            On Error Resume Next
            Target.Comment.Delete
            On Error GoTo 0
            
            With Target.AddComment
                .Text Text:=ikinciRakam
                .Visible = False
                With .Shape
                    .Width = Target.Offset(0, 1).Width
                    .Height = Target.Offset(0, 1).Height
                End With
            End With
        
        End If
    
    End If
End Sub

Ayrıca, ekteği örneği de inceleyiniz.

 

[dennisf06]

Ferhat bey tesekkür ederim örnek dosyaniz icin. hücre aciklamasi yerine ikinci degeri baska bir hücrede görebilirmiyim. yüz satirlik bir veri girisi sayfasinda bu sekilde kontrol etmem cok zor. Saygilar.

 

[Necdet]

Merhaba,

Fonksiyonlarla çözüm isterseniz eğer :

Verilerin A sütununda olduğu varsayılarak :

=EĞER(EHATALIYSA(BUL("+";A1));"";SAĞDAN(A1;UZUNLUK(A1)-BUL("+";A1))+0)
 
=IF(ISERROR(FIND("+";A1));"";RIGHT(A1;LEN(A1)-FIND("+";A1))+0)

 

[dennisf06]

Sayin Necdet bey tesekkür ederim. ama galiba istedigim sey excel de olmuyor. A sütunu Ferhat bey in yaptigi örnekte ki gibi, B sütunuda sizin bana gönderdiginiz örnekteki gibi düsünmüstüm aslinda. Yani A sutünuna =3+5 yazdigim zaman A sutununda 8, B sutununda 5 görünsün istemistim. verdiginiz emekler icin tekrar tesekkür ederim. Saygilar.

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz. İstediğiniz bu mu?

 

[dennisf06]

tam umudumu kaybetmistim hizir gibi yetistiniz Sayin espiyonajl bey. tam aradigim sey. yalniz A1 de veri girisi olmayinca B1 de Deger hatasi veriyor. bunu nasil kaldirabilirim. cok cok tesekkür ederim. Saygilar.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz.

A sütunu için geçerlidir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim Bul As Integer
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Bul = Application.WorksheetFunction.Search("+", Target)
If Bul = 0 Then
    Target.Offset(0, 1) = ""
Else
    Target.Offset(0, 1) = Mid(Target, Bul + 1, Len(Target) - Bul + 1)
    Target = "=" & Target
End If
Application.EnableEvents = True
Son:
End Sub

 

[Ömer]

tam umudumu kaybetmistim hizir gibi yetistiniz Sayin espiyonajl bey. tam aradigim sey. yalniz A1 de veri girisi olmayinca B1 de Deger hatasi veriyor. bunu nasil kaldirabilirim. cok cok tesekkür ederim. Saygilar.

Merhaba,

10. mesajımdaki dosyayı yeniledim, tekrar incelermisiniz..

 

[dennisf06]

Sayin espiyonajl bey oldu. Saygilar.

 

[dennisf06]

Sayin Necdet bey,

göndermis oldugunuz dosyada A sutununa =6+8 gibi yazdigim zaman B sutununda bir degisiklik olmadi. siz yapmissiniz ama. acaba ben yanlis bir sey mi yaptim. ayrica kodlari baska bir calisma kitabinda denedim.

 

[Necdet]

Sayın dennisf06,

Sadece 6+8 yazınız, eşittir işaretini ben koyduruyorum, kodlar kısa olsun diye doğrudan toplamı da yazdırmak olası tabi.

 

[dennisf06]

ben yanlis yapiyormusum. haklisiniz. baska sutunlara da bunu uygulamak icin A:A kisminin yanina C:C sutununu veya H:H sütunu nasil koda ekleyebilirim. bugün sizi cok yordum. Saygilar.

 

[Necdet]

Merhaba,

If Intersect(Target, [A:A]) Is Nothing Then Exit Sub

Satırını

If Intersect(Target, [A:A, C:C , H:H]) Is Nothing Then Exit Sub

Şeklinde değiştiriniz.

 

[dennisf06]

Tesekkür ederim.