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 18-05-2017, 11:58   #1
search77
Altın Üye
 
Giriş: 21/07/2006
Şehir: Kocaeli
Mesaj: 236
Varsayılan Transpose yaparken değeri aynı atasın

Merhaba Arkadaşlar,

Ekli excelimde transpose yapan macro vardır, fakat işlemi yaparken sheet1 deki değerleri Sheet2 ye transpose yaparken aynı şekilde almasını istiyorum, sayılar 16 karakter ve üstü olduğunda hepsini numbera çeviriyor ve sonlarını 0 yapıyor,

Macro içeriğinde nereyi değiştirmeliyim, acil yardım lütfen.

Saygılarımla.
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek1.xlsm (25.9 KB, 5 Görüntülenme)
search77 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 12:06   #2
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,447
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

Hücre biçimini metin olarak ayarlayın.
__________________
---------------------------------------------------
biliyorsan konuş ibret alsınlar,
bilmiyorsan sus adam sansınlar!
---------------------------------------------------
Muhammet Okumuş Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 12:08   #3
alicimri
 
Giriş: 12/12/2015
Mesaj: 409
Excel Vers. ve Dili:
Ofis 2003
Varsayılan

Kırmızı ile hedef olarak belirtilen yeri kendinize uyarlayın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
hedef.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=True
alicimri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 12:08   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Koddaki .Value kısımlarını silerseniz verileri aynen aktarır.
__________________


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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 12:17   #5
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,447
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

Koddaki .Value yazılan yerleri siliniz.
__________________
---------------------------------------------------
biliyorsan konuş ibret alsınlar,
bilmiyorsan sus adam sansınlar!
---------------------------------------------------
Muhammet Okumuş Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 12:18   #6
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,447
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

Yusuf Bey'in cevabını sonradan gördüm.
__________________
---------------------------------------------------
biliyorsan konuş ibret alsınlar,
bilmiyorsan sus adam sansınlar!
---------------------------------------------------
Muhammet Okumuş Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 12:27   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,056
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Fazladan bir döngüden kurtarmak için alternatif olsun.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Transpoze()

    Dim S1 As Worksheet, son As Long, i As Long, sut As Integer
    
    Set S1 = Sheets("Sheet1")
    
    Application.ScreenUpdating = False
    Sheets("Transpose Yap").Select
    Range("A:B").ClearContents
    
    son = 1
    For i = 1 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        sut = S1.Cells(i, Columns.Count).End(xlToLeft).Column
        S1.Cells(i, "B").Resize(1, sut).Copy
        Cells(son, "A") = S1.Cells(i, "A")
        Cells(son, "B").PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, Transpose:=True
        son = Cells(Rows.Count, "B").End(xlUp).Row + 1
    Next i
    
    Range("A1").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
        
End Sub

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 13:28   #8
search77
Altın Üye
 
Giriş: 21/07/2006
Şehir: Kocaeli
Mesaj: 236
Varsayılan

Arkadaşlar süper süper süpersiniz, tam istediğim gibi olmuş

Herkesin bilgisine emeğine sağlık, iyiki varsınız.

Saygı ve sevgilerimle
search77 Ç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 05:49


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