PARÇA AL fonksiyonu kullanımı

[tiamin]

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​

 

[ÖmerFaruk]

İ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")

 

[Muzaffer Ali]

Merhaba.

Alternatif.
VBA ile yapılmış örnek dosya ektedir.

İndir Test xlsm

Dosyayı indir Test xlsm

dosya.co

 

[tiamin]

İ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")

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

Excel versiyonu 2016.

Ayrıca formül #AD? hatası ile döndü.

 

[tiamin]

Merhaba.

Alternatif.
VBA ile yapılmış örnek dosya ektedir.

İndir Test xlsm

Dosyayı indir Test xlsm

dosya.co

Teşekkürler.

Örnek dosyanız sorunsuz çalışıyor. Fakat bunu butona tıklamadan nasıl yapabiliriz?

Yani A sütununda veri varsa diğer sütunlar otomatik dolsun siye

 

[Muzaffer Ali]

A sütununda bir hücreye veri girdiğinizde yada değiştiğinde otomatik çalışır.

İndir Test xlsm

Dosyayı indir Test xlsm

dosya.co

 

[tiamin]

A sütununda bir hücreye veri girdiğinizde yada değiştiğinde otomatik çalışır.

İndir Test xlsm

Dosyayı indir Test xlsm

dosya.co

Emeğinize sağlık

Çok teşekkür ederim.

 

[tiamin]

A sütununda bir hücreye veri girdiğinizde yada değiştiğinde otomatik çalışır.

İndir Test xlsm

Dosyayı indir Test xlsm

dosya.co

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.

 

[Muzaffer Ali]

3. mesajda paylaştığım gibi butona basarak yapabilirsiniz.

 

[Muzaffer Ali]

Buton olmadan otomatik çalışmasını istiyorsanız. Sayfanın kod kısmındaki kodu silip yerine aşağıdaki kodu kopyalayın.

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