satırları dolu satır gelene kadar otomatik doldurma

[ckaleli]

excelde bir dosya binlerce satırdan oluşuyor ve yüzlerce malzeme var. ekteki excek dosyasında bulunan K,L veya M stununu otomatik olarak (bir sonraki dolu olan satıra kadar) doldurtma yaptırabilecek bir formül yada şekil varmı.
(ilk defa form açıyorum. yanlış açtı isem kusura bakmayın)

örnek K5 'i, K19 a kadar K20 yi k5000 kdar k5001'i K5010 , bu böyle binlerce 3 beş satır yada yüzlerce satır içerebiliyor.
tşk ederim.

 

[ckaleli]

dosyayı eklememişim.

 

[uzmanamele]

merhaba

bir kaç yöntem önerilebilir;
1. K6:M18 alanını fareyle seçin, formül çubuğunda =K5 yazın, ctrl+enter yapınız.
2. K5:M5 hücreleri K6:M6 hücrelerine kopyalayınız (J5 hücre boş olduğundan), K6:M6 hücrelerini fareyle seçiniz, M6 hücrenin sağ alt köşesinde fareyi getirdiğinizde + işareti belirdiğinde çift tıklayınız.

 

[ckaleli]

merhaba,
cevap için teşekkür ederim.
ben aslında bu işi excel^de otomatik seçip doldurtabilir miyiz. diye sormak istemiştim. tarayıp bir tıkla vs. yapılabilir mi. sayfa o kadar uzunki 800.000 satır var kopya ile 3-4 gun sürebilecek bir iş.
daha kolay bir yöntem varmıdır.

 

[Korhan Ayhan]

Selamlar,

K5:M800000 hücrelerini seçin.
F5 tuşuna basın.
Açılan pencereden özel seçeneğini seçin.
Açılan pencereden "Boşluklar" seçeneğini seçip tamam tuşuna tıklayın.
Boş hücreler seçilmiş olacaktır.
Formül çubuğunu tıklayın ve =K5 yazıp CTRL+ENTER tuşlarına basarak işlemi tamamlayın.

Aşağıdaki linki inceleyerek konuyu detaylıca öğrenebilirsiniz.

Boş Hücreleri Kendinden Önceki Hücre İle Doldurmak

 

[tahsinanarat]

Doldurulacak sutunu seçerek aşağıdaki (Evvelce bu sitedentemin ettiğim) makroyu çalıştırınız, diğer sutunlar içinde aynı işlemi tekrarlayınız

Sub boşlukları_doldur()
Dim sayfa As Worksheet
Dim aralik As Range
Dim sonsatir As Long
Dim col As Long
Set sayfa = ActiveSheet
With sayfa
col = ActiveCell.Column
Set aralik = .UsedRange
sonsatir = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set aralik = Nothing
On Error Resume Next
Set aralik = .Range(.Cells(2, col), .Cells(sonsatir, col)) _
.Cells.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If aralik Is Nothing Then
MsgBox "Boş Hücre yok"
Exit Sub
Else
aralik.FormulaR1C1 = "=R[-1]C"
End If
With .Cells(1, col).EntireColumn
.Value = .Value
End With
End With
End Sub

 

[BigTurk28]

Doldurulacak sutunu seçerek aşağıdaki (Evvelce bu sitedentemin ettiğim) makroyu çalıştırınız, diğer sutunlar içinde aynı işlemi tekrarlayınız

Sub boşlukları_doldur()
Dim sayfa As Worksheet
Dim aralik As Range
Dim sonsatir As Long
Dim col As Long
Set sayfa = ActiveSheet
With sayfa
col = ActiveCell.Column
Set aralik = .UsedRange
sonsatir = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set aralik = Nothing
On Error Resume Next
Set aralik = .Range(.Cells(2, col), .Cells(sonsatir, col)) _
.Cells.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If aralik Is Nothing Then
MsgBox "Boş Hücre yok"
Exit Sub
Else
aralik.FormulaR1C1 = "=R[-1]C"
End If
With .Cells(1, col).EntireColumn
.Value = .Value
End With
End With
End Sub

Üstat selamlar,

Bu koda ,dolu satırdaki sayıyı boşluklara sıralayarak yazdıracak şekilde düzenleyebilirmisiniz

Örnek ;

Satır için sayı ;23555
Altındaki Boş satır sayısı ;255
Boş satırları üzerine dolu olan satırdaki sayının üzerine sayarak doldurabilirmiyiz ?(23555-23556-23557)

böyle yaklaşık 98K Satır var tablomda 200 satırda bir sayı var ve boş satırları +1 ekleyerek dolurmak istiyorum.

Yardımcı olursanız çok sevinirim.

 

[Korhan Ayhan]

Öncelikle linki incelemenizde fayda var..

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

Linkteki değişikliği uyguladıktan sonra örnek dosya paylaşarak sorunuzu yinelerseniz daha hızlı yanıt alabilirsiniz.