hücreden hücreye

[namida]

A1 hücresinde olan sayının ilk 2 rakamı 2.sayfanın A1 hücresine
diğer rakamlarıda A2 hücresine yazılcak..
bu olay ilk sayfanın A2 A3 A4 devam edecek böyle..

yapamadım bi türlü..

 

[altanson]

sayfa2 deki a1 hücresine

=PARÇAAL(Sayfa1!A1;1;2)

b1 hücresine

=PARÇAAL(Sayfa1!A1;3;10)

 

[namida]

parçaal die hazır fonksiyonmu var bide, bunu A2 için A3 için ayrı ayrı yazacakmıyım? yok mu bi döngü? alt alta sürekli yazılmazki böle?

 

[AS3434]

Sayın namida

İşlemin Fonksiyonla çözümü;

Sayfa 2 A1 hücresine

=PARÇAAL(Sayfa1!A1;1;2)

B1 hücresine

=PARÇAAL(Sayfa1!A1;3;UZUNLUK(Sayfa1!A1)-2)

Yazın aşağıya çekerek kopyalayın.



NOT: Ben muhabbete geç kalmışım......

 

[altanson]

sayfa2 deki a1 hücresine

=PARÇAAL(Sayfa1!A1;1;2)

a2 hücresine

=PARÇAAL(Sayfa1!A1;3;10)

pardon yanlış yazmışım a2 yerine b1 hücresi olacak.

 

[Ali]

Buda farklı çözüm olsun.

Sayfa2'deki A1 hücresine

=SOLDAN(Sayfa1!A1;2)

Sayfa2'deki B1 hücresine

=YERİNEKOY(Sayfa1!A1;A1;"")

 

[namida]

çok teşekkürler..

 

[namida]

ben bunun makro olarak yazmak istiyorum, tam olarak belirtmemişim galiba, yanlış anlatmış oldum,
makro olarak yazamazmıyım bunu?

 

[Ali]

ben bunun makro olarak yazmak istiyorum, tam olarak belirtmemişim galiba, yanlış anlatmış oldum,
makro olarak yazamazmıyım bunu?

Sub duzelt()
  For i = 1 To Worksheets("Sayfa1").[A65536].End(xlUp).Row
  Worksheets("Sayfa2").Cells(i, 1).Value = Left(Worksheets("Sayfa1").Cells(i, 1), 2)
  Worksheets("Sayfa2").Cells(i, 2).Value = WorksheetFunction.Substitute(Worksheets("Sayfa1").Cells(i, 1), Cells(i, 1), "")
  Next
End Sub

 

[AS3434]

Sayın Ali'nin kodları daha kısa ama, bende uğraştım boşa gitmesin diye dosyayı ekliyorum. Alternatif olsun.

 

[namida]

Çok teşekkürler gerçekten,
Buton yapmayıda öğrenmiş oldum.. ellerinize sağlık..
saygılar..