[]
excel sorusu
1
2
3
4
5
6
7
8
.
şeklinde bir sutun var
bunu
1234
5678
....
....
şeklinde nasıl listeyebilirim
chatgtpdeki formül çalışmadı
2
3
4
5
6
7
8
.
şeklinde bir sutun var
bunu
1234
5678
....
....
şeklinde nasıl listeyebilirim
chatgtpdeki formül çalışmadı
Bunu denediniz mi?
=A1&A2&A3&A4
=A1&A2&A3&A4
- auroraaurora
(13.06.25 10:00:30)
sonra ayırmam zor olur birleşik yapıyor bir de seriyi devam ettiremiyorum
- mantık (13.06.25 10:17:16)
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
=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
(13.06.25 10:22:48 ~ 10:23:12)
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
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 (13.06.25 10:53:18)
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
birde değerler hangi sütunda yazıyor siz yeni veriyi hangi sütuna yazdırmak istiyorsunuz
- pislick0 (13.06.25 11:01:55 ~ 11:03:05)
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
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 (13.06.25 11:15:23)
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
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 (13.06.25 11:26:48)
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))
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 (13.06.25 11:30:56)
1
