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, 10:58   #1
search77
Altın Üye
 
Giriş: 21/07/2006
Şehir: Kocaeli
Mesaj: 219
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, 11:06   #2
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,404
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, 11:08   #3
alicimri
 
Giriş: 12/12/2015
Mesaj: 380
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, 11:08   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 5,975
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
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, 11:17   #5
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,404
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, 11:18   #6
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,404
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, 11:27   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,678
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, 12:28   #8
search77
Altın Üye
 
Giriş: 21/07/2006
Şehir: Kocaeli
Mesaj: 219
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 00:32


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden