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

[turkanet]

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.

 

[danersin]

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

 

[danersin]

aman bu tip kodları asıl dosyanızı yedeklemeden denemeyin. nolur nolmaz

 

[ouney06]

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

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

 

[Necdet]

Sayın endorphinn,

Aşağıdaki linki inceleyebilirsiniz


http://www.excel.web.tr/viewtopic.php?t=7345

 

[turkanet]

TAM İSABET. MİNNETTARIM....
:dua2: k:: :bravo: :bravo: :bravo: :bravo:

 

[danersin]

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.

 

[bezl]

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.

 

[bisusya1]

d3 d12 arasındaki boş hücrelerin adedini sayacak bir koda ihtiyacım var arkadaşlar lütfen yardım edebilirmisiniz

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:b27bcc8ef1]MsgBox WorksheetFunction.CountBlank([d3:d12])
[/vb:1:b27bcc8ef1]

 

[bisusya1]

teşekkürler leventm yine imdadıma yetişiverdiniz