Ekşi Duyuru

Bunu denediniz mi?

=A1&A2&A3&A4

auroraaurora

sonra ayırmam zor olur birleşik yapıyor bir de seriyi devam ettiremiyorum

mantık

e birleşik istemişsin zaten

=A1&" "&b1&" "&c1.. şeklinde yap
sonra aşağı doğru kopyala
bir yandaki kolona da alt alta 1 2 3 4 yaz o dördünü seçip aşağı doğru kopyala. sonra bu kolona filtre uygula sadece 1 leri seç, göründen satırları başka sayyfaya kopyala
ya da at exceli yapıp geri atalım

kisa

a45 a46 a47 a48 =a45 =a46 =a47 =a48
a49 a50 a51 a52 =a49 =a50 =a51 =a52
a53 a54 a55 a56 =a53 =a54 =a55 =a56
a57 a58 a59 a60 =a57 =a58 =a59 =a60
şöyle bir yarı otomatik yol buldum gibi ama sizin formülü de öğreneyim dosyayı atıyorum
çünkü datanın ayrı sutunlara dağılmasını istiyorum

mantık

araya " - " gibi bir şey koymak istiyor musun tek seferde yazayım 2 iş olmasın

birde değerler hangi sütunda yazıyor siz yeni veriyi hangi sütuna yazdırmak istiyorsunuz

pislick0

1 2 3 B de yazıyorsa bunları düzenleyip C ye yazıyor

Sub duyuru()
Application.ScreenUpdating = False
Dim i As Long
Dim outputRow As Long
outputRow = 1
For i = 1 To 1000 Step 4
If Cells(i, 2).Value = "" Then Exit For
Cells(outputRow, 3).Value = Cells(i, 2).Value & Cells(i + 1, 2).Value & Cells(i + 2, 2).Value & Cells(i + 3, 2).Value
outputRow = outputRow + 1
Next i
Application.ScreenUpdating = True
MsgBox "Teşekkürler Pislick0"
End Sub

------------------------------

Velev ki araya " -" de koymak istedin o zaman aşağıdakini kullan

Application.ScreenUpdating = False
Dim i As Long
Dim outputRow As Long
outputRow = 1
For i = 1 To 1000 Step 4
If Cells(i, 2).Value = "" Then Exit For
Cells(outputRow, 3).Value = Cells(i, 2).Value & "-" & Cells(i + 1, 2).Value & "-" & Cells(i + 2, 2).Value & "-" & Cells(i + 3, 2).Value
outputRow = outputRow + 1
Next i
Application.ScreenUpdating = True
MsgBox "Teşekkürler Pislick0"
End Sub


bu nedir nasıl çalışır dersen de şu linkten bakabilirsin : www.youtube.com

pislick0

1 2 3 4 B C D E sütunlarına yazdırılmak isteniyormuş.

aşağıdaki işinizi görür

Sub duyurucu2()
Application.ScreenUpdating = False
Dim i As Long
Dim rowIndex As Long
Dim colOffset As Long
rowIndex = 1
For i = 1 To 5000 Step 4
For colOffset = 0 To 3
If Cells(i + colOffset, 1).Value <> "" Then
Cells(rowIndex, 2 + colOffset).Value = Cells(i + colOffset, 1).Value
End If
Next colOffset
rowIndex = rowIndex + 1
Next i
Application.ScreenUpdating = True
End Sub

pislick0

bununla uğraşmak istemezsen aşağıdaki formül ile de yapabilirsin

bunu b2 hücresine yapıştır , 4 birim sağa çek sonra 4 hücreyi işaretle istediğin kadar aşağı çek

=İNDİS($A:$A; (SATIR()-1)*4 + (SÜTUN()-1))

pislick0