[]
excel 2010 satırdan satıra veri aktarımı
görüntüden net göremiyorum. örnekleri buraya yazabilirsen ?
- puc (06.11.13 11:42:07)
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?
- invaderbrain (06.11.13 12:09:44)
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))
- spadram (06.11.13 12:25:47)
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
- puc (06.11.13 16:12:40)
1