invaderbrain
Bir satırda yer alan karmaşık verilerin içinden istediğim bilgiyi almak istiyorum. Parçaal formulü ile yapamıyorum çünkü aradığım veriler satır içinde sabit yerde değil. Ekteki görüntüde de anlattım, bir el atıverin.
Bir satırda yer alan karmaşık verilerin içinden istediğim bilgiyi almak istiyorum. Parçaal formulü ile yapamıyorum çünkü aradığım veriler satır içinde sabit yerde değil. Ekteki görüntüde de anlattım, bir el atıverin.
0
A sütununda 500'e yakın satırda veri var. Bu satırlar bir örnek değil, örneğin;
A1 hücresi: xxx xxxxxx xxxxx xxxx 2013/87
B1 hücresi: 2013/88 xxx xxxx xxxxxxxx xxxxxxxx xxxxx
C1 hücresi: xxx xxxx xxx 2013/85 9xxxx xxxxx xxxxxx
İstediğim;
A2 hücresi: 2013/87
B2 hücresi: 2013/88
C2 hücresi: 2013/859
Veriler birörnek olmakdığı için parçaal ile yapamıyorum. Nasıl bir formül ile yapılabilir?
A1 hücresi: xxx xxxxxx xxxxx xxxx 2013/87
B1 hücresi: 2013/88 xxx xxxx xxxxxxxx xxxxxxxx xxxxx
C1 hücresi: xxx xxxx xxx 2013/85 9xxxx xxxxx xxxxxx
İstediğim;
A2 hücresi: 2013/87
B2 hücresi: 2013/88
C2 hücresi: 2013/859
Veriler birörnek olmakdığı için parçaal ile yapamıyorum. Nasıl bir formül ile yapılabilir?
0
eğer aşağıdakiler sabitse vereceğim formül işinizi görür diye düşünüyorum;
-- 2013
-- / karakterinden sonra iki hane daha alınacak
Yukarıdaki iki madde sabitse şu formül istediğiniz sonucu döndürür;
=BİRLEŞTİR(PARÇAAL(A1;BUL("2013";A1);4);PARÇAAL(A1;BUL("/";A1);3))
-- 2013
-- / karakterinden sonra iki hane daha alınacak
Yukarıdaki iki madde sabitse şu formül istediğiniz sonucu döndürür;
=BİRLEŞTİR(PARÇAAL(A1;BUL("2013";A1);4);PARÇAAL(A1;BUL("/";A1);3))
0
biraz geç gördüm,
Excel'de ALT+F11; gelen ekrandan sol üst köşeden thisworkbook çift tıklanacak.
Gelen boş ekrana aşağıdaki kodu yapıştırın. Bende çalışıyor. Kendi durumunuza göre 3 rakamını değiştirebilirsiniz.
Sub tarih_alma()
For i = 1 To 3
x1 = InStr(1, Cells(1, i), "2013")
Cells(2, i) = Mid(Cells(1, i), x1, 7)
Next i
End Sub
Excel'de ALT+F11; gelen ekrandan sol üst köşeden thisworkbook çift tıklanacak.
Gelen boş ekrana aşağıdaki kodu yapıştırın. Bende çalışıyor. Kendi durumunuza göre 3 rakamını değiştirebilirsiniz.
Sub tarih_alma()
For i = 1 To 3
x1 = InStr(1, Cells(1, i), "2013")
Cells(2, i) = Mid(Cells(1, i), x1, 7)
Next i
End Sub
0
