• Web sitemize destek olmak, Hazır Excel Dosyaları indirmek ve sitemizi reklamsız kullanmak için VIP Üyelik Satın alabilirsiniz.
    Hesabını VIP Üyeliğe Yükselt

Çözüldü AltAlta Olan Verileri Tek Hücreye Birleştirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

furkan021

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhabalar, web siteden veri çektim başlık id kodu vs hepsini çekti ancak detay kısmındaki her satırı ayrı ayrı satır olarak ekledi yani her bir başlık içerisinde olması gerekirken aşağılarda boş satırlar oluştu resmini göstereyim detay yazan yere birleştirmem için ne önerirsiniz.
Detay ve Kapat yardım satırları arası detayın olduğu satıra yazılacak
 

Ekli dosyalar

  • 1617801625758.png
    1617801625758.png
    41.3 KB · Görüntüleme: 9
Çözüm
Merhaba Sayın @furkan021 .

Yanlış anlamadıysam aşağıdaki kod ile istediğiniz gerçekleşir.

-- Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın,
-- F5 tuşuna basarak kodu çalıştırın.

C#:
Sub BIRLESTIR()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
For XD = Cells(Rows.Count, 7).End(3).Row To 3 Step -1
    If Cells(XD, 1) = "" Then
        Cells(XD - 1, 7) = Cells(XD - 1, 7) & Chr(10) & Cells(XD, 7)
        Rows(XD).Delete
    End If
Next
    Columns("A:G").VerticalAlignment = xlTop
    Columns("A:G").WrapText = True
Application.ScreenUpdating = True: Application.Calculation =...

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Merhaba Sayın @furkan021 .

Yanlış anlamadıysam aşağıdaki kod ile istediğiniz gerçekleşir.

-- Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın,
-- F5 tuşuna basarak kodu çalıştırın.

C#:
Sub BIRLESTIR()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
For XD = Cells(Rows.Count, 7).End(3).Row To 3 Step -1
    If Cells(XD, 1) = "" Then
        Cells(XD - 1, 7) = Cells(XD - 1, 7) & Chr(10) & Cells(XD, 7)
        Rows(XD).Delete
    End If
Next
    Columns("A:G").VerticalAlignment = xlTop
    Columns("A:G").WrapText = True
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı.", vbInformation, "::.. ExcelDestek.Com ..::"
End Sub
 
Çözüm

furkan021

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba Sayın @furkan021 .

Yanlış anlamadıysam aşağıdaki kod ile istediğiniz gerçekleşir.

-- Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın,
-- F5 tuşuna basarak kodu çalıştırın.

C#:
Sub BIRLESTIR()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
For XD = Cells(Rows.Count, 7).End(3).Row To 3 Step -1
    If Cells(XD, 1) = "" Then
        Cells(XD - 1, 7) = Cells(XD - 1, 7) & Chr(10) & Cells(XD, 7)
        Rows(XD).Delete
    End If
Next
    Columns("A:G").VerticalAlignment = xlTop
    Columns("A:G").WrapText = True
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı.", vbInformation, "::.. ExcelDestek.Com ..::"
End Sub
Çok teşekkür ederim işe yaradı gerçekten süpersiniz :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst