Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-12-2017, 11:44   #1
bunyamin42
 
Giriş: 11/10/2017
Şehir: kütahya
Mesaj: 15
Excel Vers. ve Dili:
2017
Varsayılan tüm sütunu satırlara başlık başlık satırlara bölme

Mrb arkadaşlar..


ELimde aşğaıdaki şekilde a1 den başlayıp a 34 e kadar gidiyor. hücresinde buşekilde veri var.Ürün no ile başlayan kısım ile başlıyor ödenen miktar a kadar devam ediyor. Ayrıca her biri arasında bir boşluk satır var.

Ürün no: 308950614
Fakir RF-09 9 Dilimli Yağlı Radyatör
Satış Kodu : SC43587077
Alıcı: muryas2017
Ürün bedeli: 339.9 TL
Hizmet bedeli: 17.00 TL
(Banka kart hizmet bedeli, KDV ve GittiGidiyor hizmet komisyonu dahildir)
Ödenen miktar: 322.91 TL





Ürün no: 298530463
Fantom Eco WD 2750 Elektrikli Süpürge
Satış Kodu : SC44374232
Alıcı: djyusuf
Ürün bedeli: 299.8 TL
Hizmet bedeli: 14.99 TL
(Banka kart hizmet bedeli, KDV ve GittiGidiyor hizmet komisyonu dahildir)
Ödenen miktar: 284.81 TL





Ürün no: 315165572
Kütahya Porselen Fulya Krem 6 Kişilik Kahve Fincan Takımı
Satış Kodu : SC44389980
Alıcı: melek7273
Ürün bedeli: 59.8 TL
Hizmet bedeli: 5.98 TL
(Banka kart hizmet bedeli, KDV ve GittiGidiyor hizmet komisyonu dahildir)
Ödenen miktar: 53.82 TL


elimde bu bulunan bu veriyi a1 hücresinden h1 hücesine kadar her bır satırı yan yana yaymak istiyorum.

elimde bulunan veri toplamda 2800 satır. örnek olması için 3 taneyi gönderdim.

şimdiden yardımlarınız için teşekkür ederim.
bunyamin42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 13:52   #2
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,524
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki kodları deneyiniz:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub düzenle()
son = Cells(Rows.Count, "A").End(3).Row
yeni = 1
For i = 1 To son Step 13
    Range("A" & i & ":A" & i + 7).Copy: Cells(yeni, "B").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    yeni = yeni + 1
Next
    Columns(1).Delete
End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 22-12-2017, 15:11   #3
bunyamin42
 
Giriş: 11/10/2017
Şehir: kütahya
Mesaj: 15
Excel Vers. ve Dili:
2017
Varsayılan

tşk ederim. ama yapmak istediğim

a1
a2
a3
a4
a5
a6
a7
a8

hücreleri

a1 i b1
a2 yi c1
a3 ü d1
a4 ü e1
a5 i f1
a6 yı g1
a7 yi h1
a8 i ı 1

e alacağım

Bu mesaj en son " 22-12-2017 " tarihinde saat 15:23 itibariyle bunyamin42 tarafından düzenlenmiştir....
bunyamin42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 16:04   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,524
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aralarında bir satır boşluk olduğuna dikkat etmemişim. Kusura bakmayın.

Düzeltmek için step 13 yerine step 9 yazın. Bu kodu A1’den itibaren 8 satır dolu, 1 satır boş, 8 satır dolu, 1 satır boş şeklinde olduğunu düşünerek hazırladım.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 22-12-2017, 16:27   #5
çıtır
Altın Üye
 
Giriş: 06/03/2005
Şehir: KDZ.EREĞLİ
Mesaj: 1,211
Excel Vers. ve Dili:
Excel Vers. ve Dili: Office 2016 TR 64 Bit
Varsayılan

Alternatif olarak formül ile;
B1 Hücresine kopyalayınız ve I1 kadar sağa yeterince aşağı çekerek çoğaltınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=DOLAYLI(ADRES(-1+SÜTUN(A$1)+SATIR($A1)*9-8;SATIR($A$1)))

Bu mesaj en son " 23-12-2017 " tarihinde saat 07:19 itibariyle çıtır tarafından düzenlenmiştir....
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2017, 13:23   #6
bunyamin42
 
Giriş: 11/10/2017
Şehir: kütahya
Mesaj: 15
Excel Vers. ve Dili:
2017
Varsayılan

A1’den itibaren 8 satır dolu, 5 satır boş, 8 satır dolu, 5 satır boş şeklindedir.

Bu mesaj en son " 27-12-2017 " tarihinde saat 13:41 itibariyle bunyamin42 tarafından düzenlenmiştir....
bunyamin42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-12-2017, 14:07   #7
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,524
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

İlk verdiğim kod belirttiğiniz gibi 8 satır dolu 5 satır boş şeklindeki tabloya göre işlem yapmaktaydı. ilk mesajınızda verilerin "A1!den itibaren H1'e kadar yazılmasını" istediğinizi belirtmiştiniz:

Alıntı:
elimde bu bulunan bu veriyi a1 hücresinden h1 hücesine kadar her bır satırı yan yana yaymak istiyorum
bu isteğinize göre de kodlar aktarma işlemini yapıyor sonra da A sütunundaki eski verileri siliyordu ve veriler A1:H1 arasına geliyordu.

Sonra 3. mesajda başka bir şey istediğiniz belirtince, ben aralarında bir boşluk olduğunu belirttiğinizi gördüm ve ona göre kodu step 13 yerine step 9 olarak değiştirmenizi önerdim. Böyle yaptığınızda 8 satır dolu 1 satır boş durumuna göre kod düzgün çalışıyor.

Ancak bu arada dikkat etmemişim, siz ilk mesajda A1'de H1'e kadar istediğiniz halde sonradan B1'den I1'e kadar olması gerrektiğini belirtmişsiniz.

Şimdi de 8 satır dolu 5 satır boş olduğunu belirtiyorsunuz.

Eğer verileriniz 8 satır dolu 5 satır boş şeklindeyse ve A sütununa dokunmadan B1'den itibaren verilerin kopyalanmasını istiyorsanız aşağıdaki kodu deneyiniz:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub düzenle()
son = Cells(Rows.Count, "A").End(3).Row
yeni = 1
For i = 1 To son Step 13
    Range("A" & i & ":A" & i + 7).Copy: Cells(yeni, "B").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    yeni = yeni + 1
Next

End Sub
Eğer veriler B1'den itibaren kopyalanacak ve A sütunu boş kalacaksa aşağıdaki şekilde deneyin:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub düzenle()
son = Cells(Rows.Count, "A").End(3).Row
yeni = 1
For i = 1 To son Step 13
    Range("A" & i & ":A" & i + 7).Copy: Cells(yeni, "B").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    yeni = yeni + 1
Next
   Columns(1) = ""
End Sub
Yok A sütunu silinecekse yani verilerin son hali A1'den itibaren sıralanacaksa ilk verdiğim kodu kullanın.

Bunların hiçbiri olmuyorsa lütfen örnek dosya paylaşın ve dosyanın hem ilk halini hem de son halinde nasıl görünmesi gerektiğini örnek dosyanızda gösterin.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:35


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden