• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Veri Gruplarının Altındaki Veriyi Sütuna Kopyalama

  • Konuyu Başlatan Konuyu Başlatan vernel
  • Başlangıç tarihi Başlangıç tarihi
  • Görüntülenme 1,073
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
V

vernel

Yeni Üye
Katılım
12 Ağu 2021
Mesajlar
321
Çözümler
1
Aldığı beğeni
127
Excel V
Office 2013 TR
Konu Sahibi
Merhabalar, B Sütununda aralarında boş satır olan her grubun en altında yazılı olan tanımı A sütununda ilgili grubun satırlarına kopyalanabilir mi?

1679790988762.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Çözüm
Selamlar

veyselemre Hocam
ben amatörce kodlar yazarak yapmıştım. Ama sizin kodlar çok profesyonelce
sizin kodları incelerken; aşağıdaki kalın yazılı kodlarda takıldım. Yardımcı olabilir misiniz?
ilk kod boşluk sayısı olabilir diye düşündüm. Ama ikinci koddaki koleksiyonu anlayamadım.

If WorksheetFunction.CountBlank(.Cells) > 0 Then
For Each rng In .SpecialCells(xlCellTypeBlanks)
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Yukarıdaki with ile verilen aralıkta boşluk olmaması durumunda
.SpecialCells(xlCellTypeBlanks)
komutu hata verip kırılmaya yol açar.
Aşağıdaki countBlank ile aralıkta boşluk olup olmadığı kontrol edilir. Yoksa işlem yapılmaz.
Gerçi şu anda bu kontrol boşa çıkmış durumda. with satırında Row+1 ' de +1 i sonra eklediğim için boşluk olmaması durumu söz
konusu şu anda geçerli değil. En sonda mutlaka bir boşluk zaten olacak.
If WorksheetFunction.CountBlank(.Cells) > 0 Then

Eğer verilen aralıkta boşluk varsa aşağıdaki komut boş hücreleri alır ve işler.
.SpecialCells(xlCellTypeBlanks)
 
Olumlu oy 0 Negatif oyla
Selamlar
veyselemre Hocam
Sizin kodlarla yeniden bir dosya hazırladım. Kodlarda son bölümü yazdırmıyor neden olabilir?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
B26 Hücresinde sıkıntı var, boş hücre olarak değerlendirmiyor. B26 hücresini sağ tıklayıp delete ile silin.
 
Olumlu oy 0 Negatif oyla
alternatif olarak aşağıdaki kod da denenebilir
HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst