• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

BOŞ HÜCREYİ BİR ÜSTTEKİ HÜCRE İLE AYNI YAPMAK

T

turkanet

Katılım
30 Mart 2005
Mesajlar
755
Excel Vers. ve Dili
2016 EN
Elimde çok acil bitmesi gereken bir iş var ve hücre birleştirmesi yapmıştım. Şimdi hücreleri ayırmam gerekti. Ve birleştirilmiş hücreleri bozunca, ortaya yüzlerce kopyalanıp aynen alttaki hücreye yapışması gereken hücre yığını çıktı.

Nasıl bir makro kullanmalıyım ki, çalışma sayfasında belirli aralıkta (a4:e1200) boş hücreleri, üstteki değerleri aynen kopyalayarak doldursun.

Bilen arkadaşlar lütfen desteğini esirgemesin, iş gerçekten çok acil.

Şimdiden teşekkürler...


Edit xxrt:Büyük harf kullanmayınız.Yazım düzenine çevrildi.
 
en basitinden bi kod

Sub dene()
For i = 2 To 1200
If Cells(i, 1) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy
Cells(i, 1).PasteSpecial
End If
Next i
End Sub
 
aman bu tip kodları asıl dosyanızı yedeklemeden denemeyin. nolur nolmaz:)
 
danersin' Alıntı:
en basitinden bi kod

Sub dene()
For i = 2 To 1200
If Cells(i, 1) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 5)).Copy
Cells(i, 1).PasteSpecial
End If
Next i
End Sub
Genişletmek için tıkla ...

For i = 2 To 1200
If Cells(i, 1) = "" Then
cells(i,1)=cells(i-1,1)
End If
Next

bu da başka bir yaklaşım olabilir.

Saygılar

Özgür Üney
 
TAM İSABET. MİNNETTARIM....
:dua2: :ok:: :bravo: :bravo: :bravo: :bravo:
 
sn. endorphinn, siz makro deyince bende makrroya yönlendim alel acele yazdım bi kod ama (inceledinizmi bilmiyorum ama) Necdet beyin yöntemini öğrenirseniz her zaman değişik durumlardada kullanabileceğiniz güzel bi yöntem.
 
Boşlukların bir önceki satır ile aynı olması gereken veri aralığını seçin sonra ctrl + g ile "git" tıklayın sonra özelleştir'e tıklayın boş hücreleri seçtirin üsteki hücre ile aynı olması gereken ilk hücrenin içine "=" üsteki hücrenin adresini yazın mesela "=a3" sonra ctrl ile birlikte entere basın artık bütün boş hücreler üsteki hücre ile eşitlendi bence bundan sonra bu sütunları kopyala özel yapıştır değer yapıştır ile formülden kurtarın. Kolay gelsin
Not: herşeyi makro ile yapmaya çalışmak bence bazen anlamsız, kod çöplüğü oluşuyor.
 
d3 d12 arasındaki boş hücrelerin adedini sayacak bir koda ihtiyacım var arkadaşlar lütfen yardım edebilirmisiniz
 
Aşağıdaki kodu deneyin.

[vb:1:b27bcc8ef1]MsgBox WorksheetFunction.CountBlank([d3:d12])
[/vb:1:b27bcc8ef1]
 
teşekkürler leventm yine imdadıma yetişiverdiniz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst