Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-03-2011, 11:35   #1
Rainbows
 
Rainbows kullanıcısının avatarı
 
Giriş: 05/02/2009
Şehir: istanbul
Mesaj: 173
Excel Vers. ve Dili:
microsoft office 2010
Varsayılan Virgül sonrasını bir alt satıra yazma.

Merhaba arkadaşlar benim bir tablom var bir kolonda birden fazla data var. ben bunların ayrı kolonlarda olmasını istiyorum. mesela a2 kolonunda virgül ile ayrılmıs

"Amoi 3Skype, Amoi 8507 (Berlin), Amoi 8512, Amoi 8517, Amoi Chicago, Amoi M636, Amoi MD 900"
6 cümleli bir yazı var ben bunları alt alt nasıl alabilirim.

örnek tablo ektedir. tesekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsx Book1.xlsx (16.6 KB, 6 Görüntülenme)
Rainbows Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 11:39   #2
Mahir ÇÜMEN
Destek Ekibi
 
Mahir ÇÜMEN kullanıcısının avatarı
 
Giriş: 19/04/2006
Şehir: UŞAK
Mesaj: 5,060
Excel Vers. ve Dili:
Excel 2013-Türkçe
Varsayılan

Alıntı:
tacettintasci tarafından gönderildi Mesajı Görüntüle
Merhaba arkadaşlar benim bir tablom var bir kolonda birden fazla data var. ben bunların ayrı kolonlarda olmasını istiyorum. mesela a2 kolonunda virgül ile ayrılmıs

"Amoi 3Skype, Amoi 8507 (Berlin), Amoi 8512, Amoi 8517, Amoi Chicago, Amoi M636, Amoi MD 900"
6 cümleli bir yazı var ben bunları alt alt nasıl alabilirim.

örnek tablo ektedir. tesekkürler.
Merhaba
Veri / Metni Sütunlara Dönüştür / Sınırlandırılmış / Diğer / ","
seçeneği işinizi görecektir.
__________________
Türkçenin bir eksiği yok, ya sizin?

Bir yalan, hangi amaç için söylenmiş olursa olsun, her zaman, en kötü gerçekten daha kötüdür.Che Guevara
Mahir ÇÜMEN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 11:55   #3
Rainbows
 
Rainbows kullanıcısının avatarı
 
Giriş: 05/02/2009
Şehir: istanbul
Mesaj: 173
Excel Vers. ve Dili:
microsoft office 2010
Varsayılan

Bunu alt kolonlara yazma sansımız var mı?
Rainbows Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 12:48   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,052
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alıntı:
tacettintasci tarafından gönderildi Mesajı Görüntüle
Bunu alt kolonlara yazma sansımız var mı?
Merhaba,

Örnek olarak A2,A3 ve A4 hücrlerinin olmasını istediğiniz formatını Sayfa2 de hazırlayıp yeni bir dosya eklermisiniz..

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 13:37   #5
Rainbows
 
Rainbows kullanıcısının avatarı
 
Giriş: 05/02/2009
Şehir: istanbul
Mesaj: 173
Excel Vers. ve Dili:
microsoft office 2010
Varsayılan

Ekledim. sayda2 de belirttim nasıl olması gerektigini
Eklenmiş Dosyalar
Dosya Türü: xlsx Book1.xlsx (17.1 KB, 9 Görüntülenme)
Rainbows Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 13:47   #6
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,052
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Tabloyu değiştirmişsiniz ve ayrıca A2,A3 ve A4 için örneklemenizi rica etmiştim.Sadece A2 yi örneklemişsiniz.

Bunun için de görmek istediğimi göremedim.

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

A3 ü diğer sayfada A1 ve A2 ye yazdınız. A4 için diğer sayfadan A3 denmi başlayarak yazacak.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 14:06   #7
Rainbows
 
Rainbows kullanıcısının avatarı
 
Giriş: 05/02/2009
Şehir: istanbul
Mesaj: 173
Excel Vers. ve Dili:
microsoft office 2010
Varsayılan

Peki ekledim sizin istediginiz gibi
Eklenmiş Dosyalar
Dosya Türü: xlsx Copy of Book1-1.xlsx (16.9 KB, 14 Görüntülenme)
Rainbows Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 15:19   #8
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,052
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Bu şekilde deneyiniz..

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
Sub Ayristir()
 
Dim Sv As Worksheet, i As Long, j As Integer
Dim Adet As Long, sut As Integer, sat As Long
Dim deg
 
Set Sv = Sheets("Sheet1")
Application.ScreenUpdating = False
Sheets("Sheet2").Select
Cells.ClearContents
 
Adet = Rows.Count - 1: sut = 1: sat = 0
For i = 1 To Sv.Cells(Rows.Count, "A").End(xlUp).Row
    deg = Split(Sv.Cells(i, "A"), ",")
    For j = 0 To UBound(deg)
        sat = sat + 1
        If sat > Adet Then
            sat = 1
            sut = sut + 1
            If sut > Columns.Count Then
                MsgBox "Satır sayısını ayarlayamadınız, sütun taşacak " & _
                "ve hata verecek, bu yüzden duruyorum"
                Exit Sub
            End If
        End If
        Cells(sat, sut) = deg(j)
    Next j
Next i
Application.ScreenUpdating = True
End Sub
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 16:03   #9
Rainbows
 
Rainbows kullanıcısının avatarı
 
Giriş: 05/02/2009
Şehir: istanbul
Mesaj: 173
Excel Vers. ve Dili:
microsoft office 2010
Varsayılan

tesekkürler.
Rainbows Çevrimdışı   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 22:19


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 - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu 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- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden