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: 230
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,437
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: 381
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,043
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, 12:17   #5
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,437
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,437
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,017
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 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 18-05-2017, 13:28   #8
search77
Altın Üye
 
Giriş: 21/07/2006
Şehir: Kocaeli
Mesaj: 230
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 11:46


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden