• DİKKAT

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

Altında boşluk olan hücreyi doldurmak

  • Konbuyu başlatan Konbuyu başlatan gkhn2
  • Başlangıç tarihi Başlangıç tarihi
gkhn2

gkhn2

Katılım
20 Aralık 2013
Mesajlar
195
Excel Vers. ve Dili
Microsoft Office Standart 2013 - Microsoft Windows 10 Enterprise
arkadaşlar selam

linkteki dosyada

D6'daki CARİ3'ü D7 ve D8'e
D9'daki CARİ4'ü D10, D11, D12 ve D13 e kopyalayabilecek bir kod yazılabilir mi?

aynı şekilde CARİ KOD kısmınıda yapmak istiyorum.

Yalnız bu liste devamlı değişmekte ve cari sayısı artmaktadır. Kısacası C ve D sütünündaki boşlukları bir üstteki dolu olan hücre ile doldurabilir miyim?

http://dosya.co/y4gvydqwe358/liste.rar.html
 
2a4x1ds.png

Bende böyle bir kod kullanıyorum ama excel dosya düzeni yukarıdaki gibi olursa çalışıyor.


Kod: 
Sub Eko()
Application.ScreenUpdating = False
For x = 3 To Cells(Rows.Count, "C").End(3).Row
If Range("C" & x) <> "" And Range("A" & x) = "" Then Range("A" & x) = Range("A" & x).Offset(-1, 0)
If Range("C" & x) <> "" And Range("B" & x) = "" Then Range("B" & x) = Range("B" & x).Offset(-1, 0)
Next x
Application.ScreenUpdating = True
End Sub
 
Süleyman mehmeti bi altındakine mi kopyalıyor
 
gkhn2' Alıntı:
arkadaşlar selam

linkteki dosyada

D6'daki CARİ3'ü D7 ve D8'e
D9'daki CARİ4'ü D10, D11, D12 ve D13 e kopyalayabilecek bir kod yazılabilir mi?

aynı şekilde CARİ KOD kısmınıda yapmak istiyorum.

Yalnız bu liste devamlı değişmekte ve cari sayısı artmaktadır. Kısacası C ve D sütünündaki boşlukları bir üstteki dolu olan hücre ile doldurabilir miyim?

http://dosya.co/y4gvydqwe358/liste.rar.html
Genişletmek için tıkla ...
. . .

Kod: 
Sub KOD()
    Application.ScreenUpdating = False
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        
        If Cells(i, "D") = "                                             " Then
            Cells(i, "D") = Cells(i - 1, "D")
        End If
        
        If Cells(i, "C") = "                  " Then
            Cells(i, "C") = Cells(i - 1, "C")
        End If
    Next i
    
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i"
End Sub

. . .
 
Teşekkürler dostum ama evde değilim deniyecem
 
Merhaba.

Kod kullanmadan da halledilebilir.

İlgili alanı seçin,
"Bul ve Seç" menüsü -> "Özel Git" -> "Boşluklar" -> formül çubuğuna
=A1 gibi ilk boşluktan önceki hücre adını yazın
-> CTRL+ENTER tuşlarına birlikte basın.
 
omer.baran' Alıntı:
Merhaba.
Kod kullanmadan da halledilebilir.
İlgili alanı seçin,
"Bul ve Seç" menüsü -> "Özel Git" -> "Boşluklar" -> formül çubuğuna
=A1 gibi ilk boşluktan önceki hücre adını yazın
-> CTRL+ENTER tuşlarına birlikte basın.
Genişletmek için tıkla ...
.

Sanırım örnek dosya üzerinde denemediniz.
Hücreler boş gibi görünüyor ancak içerisinde karakter var.

.
 
Hüseyin Çoban' Alıntı:
. . .

Kod: 
Sub KOD()
    Application.ScreenUpdating = False
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        
        If Cells(i, "D") = "                                             " Then
            Cells(i, "D") = Cells(i - 1, "D")
        End If
        
        If Cells(i, "C") = "                  " Then
            Cells(i, "C") = Cells(i - 1, "C")
        End If
    Next i
    
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i"
End Sub

. . .
Genişletmek için tıkla ...


eline sağlık olmuş çok teşekkürler

ama ben bunu hep farklı excellerde kullanacağım için PERSONAL.XLSB dosyasına kaydetmek istiyorum makro olarak denedim ama BİTTİ mesajı geldiğinde işlemi yapmamıştı.
 
. . .

Normalde örnekte çalışıyor ise
PERSONAL.XLSB içine almada yanlış yapmış olabilirsiniz.

Makro kaydedi çalıştırıp > Kişisel Makro Çalışma Kitabını seçin ve basit bir makro oluşturun.
Daha sonra oluşturulan bu kodu yukarıdakiler ile değiştirin.
PERSONAL.XLSB içine yazmanın pratik bir yoludur.

. . .
 
Hüseyin Çoban' Alıntı:
. . .

Normalde örnekte çalışıyor ise
PERSONAL.XLSB içine almada yanlış yapmış olabilirsiniz.

Makro kaydedi çalıştırıp > Kişisel Makro Çalışma Kitabını seçin ve basit bir makro oluşturun.
Daha sonra oluşturulan bu kodu yukarıdakiler ile değiştirin.
PERSONAL.XLSB içine yazmanın pratik bir yoludur.

. . .
Genişletmek için tıkla ...

tamamdır oldu çok teşekkürler
 
Baggwell' Alıntı:
2a4x1ds.png

Bende böyle bir kod kullanıyorum ama excel dosya düzeni yukarıdaki gibi olursa çalışıyor.


Kod: 
Sub Eko()
Application.ScreenUpdating = False
For x = 3 To Cells(Rows.Count, "C").End(3).Row
If Range("C" & x) <> "" And Range("A" & x) = "" Then Range("A" & x) = Range("A" & x).Offset(-1, 0)
If Range("C" & x) <> "" And Range("B" & x) = "" Then Range("B" & x) = Range("B" & x).Offset(-1, 0)
Next x
Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...

teşekkür ederim dostum
 
son olarak yine aynı exceldeki A sütunundaki veri ile C sütunundaki veri başka bir exceldeki aynı veriler ile eşleşirse E sütunundaki veriyi yazacak bir formül yada makro var mıdır? düşeyara ile olmuyor çünkü iki kıstas var
 
Hüseyin Çoban' Alıntı:
. . .

Normalde örnekte çalışıyor ise
PERSONAL.XLSB içine almada yanlış yapmış olabilirsiniz.

Makro kaydedi çalıştırıp > Kişisel Makro Çalışma Kitabını seçin ve basit bir makro oluşturun.
Daha sonra oluşturulan bu kodu yukarıdakiler ile değiştirin.
PERSONAL.XLSB içine yazmanın pratik bir yoludur.

. . .
Genişletmek için tıkla ...


son olarak yine aynı exceldeki A sütunundaki veri ile C sütunundaki veri başka bir exceldeki aynı veriler ile eşleşirse E sütunundaki veriyi yazacak bir formül yada makro var mıdır? düşeyara ile olmuyor çünkü iki kıstas var

bu konuda da yardımcı olur musunuz?
 
gkhn2' Alıntı:
son olarak yine aynı exceldeki A sütunundaki veri ile C sütunundaki veri başka bir exceldeki aynı veriler ile eşleşirse E sütunundaki veriyi yazacak bir formül yada makro var mıdır? düşeyara ile olmuyor çünkü iki kıstas var
bu konuda da yardımcı olur musunuz?
Genişletmek için tıkla ...
. . .

Bu farklı bir soru yeni konu açmalısınız.

Diğer tablonunda örneğini yükleyin.

. . .
 
Hüseyin Çoban' Alıntı:
. . .

Kod: 
Sub KOD()
    Application.ScreenUpdating = False
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        
        If Cells(i, "D") = "                                             " Then
            Cells(i, "D") = Cells(i - 1, "D")
        End If
        
        If Cells(i, "C") = "                  " Then
            Cells(i, "C") = Cells(i - 1, "C")
        End If
    Next i
    
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i"
End Sub

. . .
Genişletmek için tıkla ...

tabloda bazı değişiklikler oldu da acaba D ve C sütunu yerine B ve A sütununa işlem yapmak istesem kod nasıl olur? yazdığın koddaki D'leri B C'leri A yaptım olmadı
 
. . .

Tablonun son halinin örneğini yükleyin. Onun üzerinden kontrol edelim.

. . .
 
. . .

A ve B deki boşluklarda da değişiklik olmuş.

Kod: 
Sub KOD()
    Application.ScreenUpdating = False
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        
        If Cells(i, "B") = "                                                  " Then
            Cells(i, "B") = Cells(i - 1, "B")
        End If
        
        If Cells(i, "A") = "             " Then
            Cells(i, "A") = Cells(i - 1, "A")
        End If
    Next i
    
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i"
End Sub

. . .
 
Hüseyin Çoban' Alıntı:
. . .

A ve B deki boşluklarda da değişiklik olmuş.

Kod: 
Sub KOD()
    Application.ScreenUpdating = False
    
    For i = 4 To Cells(Rows.Count, "A").End(3).Row
        
        If Cells(i, "B") = "                                                  " Then
            Cells(i, "B") = Cells(i - 1, "B")
        End If
        
        If Cells(i, "A") = "             " Then
            Cells(i, "A") = Cells(i - 1, "A")
        End If
    Next i
    
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i"
End Sub

. . .
Genişletmek için tıkla ...


aynen tonaj yazısının orjinal yeri en halindeki gibiymiş

şimdi oldu tekrar sağol
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst