• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

PARÇA AL fonksiyonu kullanımı

T

tiamin

Katılım
25 Kasım 2009
Mesajlar
9
Excel Vers. ve Dili
2016
Merhabalar.

A sütunundaki verileri A satırındaki örnekteki gibi parçalatıp almak istiyorum. Bunu nasıl yapabilirim?

Şimdiden teşekkür ederim.




Veri​

En​

Boy​

Yük.​

H.Birim​

Ağırlık​

A.Birim​

18.9 x 17 x 6.8 cm; 260 gram​

18.9​

17​

6.8​

cm​

260​

gram​

22 x 16.4 x 6 cm; 210 gram​













21.9 x 17.4 x 7.7 cm; 240 gram​













22 x 16.8 x 7 cm; 320 gram​













22.3 x 17.1 x 6.8 cm; 260 gram​













12.9 x 11.2 x 9.3 cm; 3.04 Kilogram​













13.4 x 10.9 x 9.6 cm; 3.04 Kilogram​













13.4 x 10.8 x 9.5 cm; 480 gram​













31.1 x 17.1 x 11.9 cm; 770 gram​













31.4 x 16.9 x 12.1 cm; 740 gram​













31.5 x 17 x 12 cm; 690 gram​













13.2 x 10.7 x 9.5 cm; 500 gram​












 
İmzanızda kullandığınız excel versiyonunu (xp değil) ve çözümü hangi versiyonda isediğinizi belirtebilirmisiniz.
Versiyonunuz uygunsa B2 hücresine
=METİNBÖL(KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(A2;";";"");"cm";"xcmx");"gram";"xgram"));"x")
 
Son düzenleme:
ÖmerFaruk' Alıntı:
İmzanızda kullandığınız excel versiyonunu (xp değil) ve çözümü hangi versiyonda isediğinizi belirtebilirmisiniz.
Versiyonunuz uygunsa B2 hücresine
=METİNBÖL(KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(A2;";";"");"cm";"xcmx");"gram";"xgram"));"x")
Genişletmek için tıkla ...


Cevabınız için teşekkür ederim.

Excel versiyonu 2016.

Ayrıca formül #AD? hatası ile döndü.
 
A sütununda bir hücreye veri girdiğinizde yada değiştiğinde otomatik çalışır.

İndir Test

Dosyayı indir Test
dosya.co
 
Muzaffer Ali' Alıntı:
A sütununda bir hücreye veri girdiğinizde yada değiştiğinde otomatik çalışır.

İndir Test

Dosyayı indir Test
dosya.co
Genişletmek için tıkla ...

Merhabalar.

Bugun şöyle bir sorunla karşılaştım. A sutununa başka bir yerden toplu yani 1den fazla satır yapıştırdığımda makro çalışmadı. Tek tek veri girdiğimde yada tek tek yapıştırma yaptığımda sorunsuz çalışıyor.

Bu sorunu nasıl aşabilirim?

Teşekkürler.
 
3. mesajda paylaştığım gibi butona basarak yapabilirsiniz.
 
Buton olmadan otomatik çalışmasını istiyorsanız. Sayfanın kod kısmındaki kodu silip yerine aşağıdaki kodu kopyalayın.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Variant
    Dim Bak As Range
    For Each Bak In Target
        If Not Intersect(Range("A:A"), Bak) Is Nothing Then
            Veri = Replace(Replace(Bak, ";", ""), "x ", "")
            Veri = Split(Veri, " ")
            Application.EnableEvents = False
            Range("B" & Bak.Row & ":G" & Bak.Row).Value = Veri
            Application.EnableEvents = True
        End If
    Next
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst