[]
Excel uzmanlık sorusu
Merhaba arkadaşlar,
Excelde 2 değerli ( sütun ) 65.000 farklı veri satırı var.
Ben bu satırları , 12'li olacak şekilde yatay yapmak istiyorum.
Yani 12 sütun olacak.
Altalta da sallıyorum 5.000 satır olacak.
Lütfen kısa yolunu bilenler yardimci olabilir mi ?
"Kopyala Özel yapıştır" diyip işlemi "tersine çevir" dediğimde 65.000 satırı yatay cevirmiyor. Yapistiramazsin diye hata veriyor.
Ama 100 tanesini yapıştırıyor.
Excelde 2 değerli ( sütun ) 65.000 farklı veri satırı var.
Ben bu satırları , 12'li olacak şekilde yatay yapmak istiyorum.
Yani 12 sütun olacak.
Altalta da sallıyorum 5.000 satır olacak.
Lütfen kısa yolunu bilenler yardimci olabilir mi ?
"Kopyala Özel yapıştır" diyip işlemi "tersine çevir" dediğimde 65.000 satırı yatay cevirmiyor. Yapistiramazsin diye hata veriyor.
Ama 100 tanesini yapıştırıyor.
excel bilmiyorum ama piton (tıss) üzerinden yardımcı olabilirim.
google colab'e gir, solda dosya yüklemeden excelini yükle, sonra şu kodu çalıştır. yeni dosyanı eline verecektir. yine soldan indirebilirsin;
-- kod başlangıcı ---
import pandas as pd
veri = pd.read_excel("veri.xlsx") #veri.xlsx yerine solda dosyadaki üç noktaya tıkla yolu kopyalaıyp tatar ramazan gibi yapıştır
yatay_veri = veri.groupby(veri.index // 12).apply(lambda x: pd.Series(x.values.ravel('F')))
yatay_veri.to_excel("yatay_veri.xlsx", index=False, header=False) #yatay_veri.xlsx yeni dosyan sola eklenecektir oradan indirebilirsin
--- kod bitişi ---
eğer çalışmaz ise chatgpt'ye git selamımı söyle, bu kodu benim yazdığımı ama hata verdiğini söyle o düzeltir
google colab'e gir, solda dosya yüklemeden excelini yükle, sonra şu kodu çalıştır. yeni dosyanı eline verecektir. yine soldan indirebilirsin;
-- kod başlangıcı ---
import pandas as pd
veri = pd.read_excel("veri.xlsx") #veri.xlsx yerine solda dosyadaki üç noktaya tıkla yolu kopyalaıyp tatar ramazan gibi yapıştır
yatay_veri = veri.groupby(veri.index // 12).apply(lambda x: pd.Series(x.values.ravel('F')))
yatay_veri.to_excel("yatay_veri.xlsx", index=False, header=False) #yatay_veri.xlsx yeni dosyan sola eklenecektir oradan indirebilirsin
--- kod bitişi ---
eğer çalışmaz ise chatgpt'ye git selamımı söyle, bu kodu benim yazdığımı ama hata verdiğini söyle o düzeltir
- avatar is back (21.03.24 13:55:54 ~ 13:56:46)
aşağıdaki kodu ALT + F11 ile açıp kopyala yapıştır yaptıktan sonra çalıştırabilirsiniz
bölmek istediğiniz verilerin A ve B sütunlarında olduğunu varsaydım. sizde farklıysa A1:B65000 yazan yeri revize edebilirsiniz ya da oraya taşıyıp çalıştırın
Sub esdfgdg()
Dim ws As Worksheet
Dim veri As Range
Dim bolumSayisi As Integer
Dim bolumUzunlugu As Long
Dim i As Integer
Dim baslangicSatiri As Long
Dim bitisSatiri As Long
Dim bolum As Integer
Set ws = ThisWorkbook.Sheets("Sayfa1") 'sendeki sayfanın adı farklıysa buraya onu yaz tırnak içine
Set veri = ws.Range("A1:B65000")
bolumSayisi = 12
bolumUzunlugu = WorksheetFunction.RoundUp(veri.Rows.Count / bolumSayisi, 0)
baslangicSatiri = 1
bitisSatiri = bolumUzunlugu
For bolum = 1 To bolumSayisi
veri.Columns(1).Copy ws.Cells(1, bolum + 2)
veri.Columns(2).Copy ws.Cells(1, bolum + 2 + bolumSayisi)
baslangicSatiri = baslangicSatiri + bolumUzunlugu
bitisSatiri = bitisSatiri + bolumUzunlugu
Set veri = ws.Range("A" & baslangicSatiri & ":B" & bitisSatiri)
Next bolum
End Sub
bölmek istediğiniz verilerin A ve B sütunlarında olduğunu varsaydım. sizde farklıysa A1:B65000 yazan yeri revize edebilirsiniz ya da oraya taşıyıp çalıştırın
Sub esdfgdg()
Dim ws As Worksheet
Dim veri As Range
Dim bolumSayisi As Integer
Dim bolumUzunlugu As Long
Dim i As Integer
Dim baslangicSatiri As Long
Dim bitisSatiri As Long
Dim bolum As Integer
Set ws = ThisWorkbook.Sheets("Sayfa1") 'sendeki sayfanın adı farklıysa buraya onu yaz tırnak içine
Set veri = ws.Range("A1:B65000")
bolumSayisi = 12
bolumUzunlugu = WorksheetFunction.RoundUp(veri.Rows.Count / bolumSayisi, 0)
baslangicSatiri = 1
bitisSatiri = bolumUzunlugu
For bolum = 1 To bolumSayisi
veri.Columns(1).Copy ws.Cells(1, bolum + 2)
veri.Columns(2).Copy ws.Cells(1, bolum + 2 + bolumSayisi)
baslangicSatiri = baslangicSatiri + bolumUzunlugu
bitisSatiri = bitisSatiri + bolumUzunlugu
Set veri = ws.Range("A" & baslangicSatiri & ":B" & bitisSatiri)
Next bolum
End Sub
- pislick0 (21.03.24 21:29:51)
[]
İstanbul Çam Sakura Hastanesi A Rh + Kan Bağışı
arkadaşlar merhaba ,
İstanbul çam sakura hastanesinde Lenfoma ve solunum yetmezliği tedavisi gören çocuğumuz için A Rh + ( pozitif ) Kırmızı kan , Trombosit ve Granülosit kana ihtiyacımız var. Çocuğumuz 2.5 yaşında ve şuan yoğun bakımda entübe edildi.
Doktorlar her gün kan istiyorlar. Sadece erkeklerden bağış alıyorlar.
Lütfen duyarsız kalmayalım. vakti zamanı müsait olanların yardım etmelerini istiyoruz. Hastane içine kadar metroyla gelebiliyorsunuz. Destekleriniz için şimdiden teşekkürler. adminlerden bir süre üstte kalmasını rica ediyorum.
Anne :
emine özcü - 0543 592 34 61
İstanbul çam sakura hastanesinde Lenfoma ve solunum yetmezliği tedavisi gören çocuğumuz için A Rh + ( pozitif ) Kırmızı kan , Trombosit ve Granülosit kana ihtiyacımız var. Çocuğumuz 2.5 yaşında ve şuan yoğun bakımda entübe edildi.
Doktorlar her gün kan istiyorlar. Sadece erkeklerden bağış alıyorlar.
Lütfen duyarsız kalmayalım. vakti zamanı müsait olanların yardım etmelerini istiyoruz. Hastane içine kadar metroyla gelebiliyorsunuz. Destekleriniz için şimdiden teşekkürler. adminlerden bir süre üstte kalmasını rica ediyorum.
Anne :
emine özcü - 0543 592 34 61
[]
A Rh + ( pozitif ) Beyaz kan - İstanbul çam sakura hastanesi
arkadaşlar merhaba ,
İstanbul çam sakura hastanesinde Lenfoma kanseri tedavisi gören çocuğumuz için , a Rh pozitif Beyaz kana ihtiyacımiz var. Çocuğumuz yoğun bakımda. Lütfen destek olalım.
Öncelikle hastanede iğne yapıliyor ve iğne yapıldıktan 12 saat sonra alıyorlar kanı. Yani 12 saat sonra tekrar hastanede olmanız gerekiyor. kan verme süreci de yaklaşık 1-2 saat sürüyor.
desteklerinizi rica ediyorum.
Yarın bir gün sizlerinde başına gelebilir. Biz de çocuğumuzun kanser olacağını düşünmedik..
İletişim :
emine özcü / 0543 592 34 61
İstanbul çam sakura hastanesinde Lenfoma kanseri tedavisi gören çocuğumuz için , a Rh pozitif Beyaz kana ihtiyacımiz var. Çocuğumuz yoğun bakımda. Lütfen destek olalım.
Öncelikle hastanede iğne yapıliyor ve iğne yapıldıktan 12 saat sonra alıyorlar kanı. Yani 12 saat sonra tekrar hastanede olmanız gerekiyor. kan verme süreci de yaklaşık 1-2 saat sürüyor.
desteklerinizi rica ediyorum.
Yarın bir gün sizlerinde başına gelebilir. Biz de çocuğumuzun kanser olacağını düşünmedik..
İletişim :
emine özcü / 0543 592 34 61
[]
Adobe indesign versiyon Hk.
arkadaşlar selam ,
elimde 456 sayfalık indesign 14 versiyonlu bir dosya var.
Bu dosyaya revize çalışmalar ekleyeceğiz ama tasarimcimizin kullandigi program cc2012 imiş. Ve dosyayı acamiyor. Bu dosyayı convert veya cc12 ye nasıl çevirebiliriz ? yardımcı olur musunuz ?
elimde 456 sayfalık indesign 14 versiyonlu bir dosya var.
Bu dosyaya revize çalışmalar ekleyeceğiz ama tasarimcimizin kullandigi program cc2012 imiş. Ve dosyayı acamiyor. Bu dosyayı convert veya cc12 ye nasıl çevirebiliriz ? yardımcı olur musunuz ?
1