boş hücreleri silerek sağa kaydırma.

[hamza8625]

Merhaba arkadaşlar. Excel sayfasındaki boş hücreleri f5'e basarak seçiyorum. ve bunları sil dediğimde "sola kaydır", "yukarı kaydır", "satır sil", "sütun sil" secenekleri çıkıyor. ama benim istediğim sola değilde sağa kaydırması. excelde böyle birsey varmı? şimdiden çok teşekkür ediyorum arkadaşlar.

 

[hbgny]

Merhaba, ben aşağıdaki seçeneği seçtiğimde dediğiniz gibi oluyor

 

[uzmanamele]

Merhaba arkadaşlar. Excel sayfasındaki boş hücreleri f5'e basarak seçiyorum. ve bunları sil dediğimde "sola kaydır", "yukarı kaydır", "satır sil", "sütun sil" secenekleri çıkıyor. ama benim istediğim sola değilde sağa kaydırması. excelde böyle birsey varmı? şimdiden çok teşekkür ediyorum arkadaşlar.

Örnek dosya ekleseydiniz ne yapmak istediğinizi daha net anlayabilirdik.
Aşağıdaki link size fikir verebilir.

BOŞ HÜCRELERİ SİLME

 

[hamza8625]

Merhaba, ben aşağıdaki seçeneği seçtiğimde dediğiniz gibi oluyor
Ekli dosyayı görüntüle 236451

Bu seçenek ekranıda sağa döndürüyor. ondan dolayı yine olması gerekeni yapmıyor. bir dosya örnek paylaştım oradan bakabilirseniz sevinirim.

 

[hamza8625]

https://docs.google.com/spreadsheet...ouid=102935830906907111589&rtpof=true&sd=true örnek dosya

 

[hamza8625]

Örnek dosya ekleseydiniz ne yapmak istediğinizi daha net anlayabilirdik.
Aşağıdaki link size fikir verebilir.

BOŞ HÜCRELERİ SİLME

haklısınız. şimdi bir dosya ekledim

 

[uzmanamele]

Merhaba

Bu kodu standart modüle yazarak deneyiniz.

Sub VerileriSağaYasla()
        Range("L3:U36").ClearContents
ssat = Range("A1048576").End(3).Row
Dim deg(1 To 10) As Variant
For i = 3 To ssat
Cells(i, "L") = Cells(i, "A")
Next

For i = 3 To ssat
X = 10
For j = 10 To 2 Step -1
If Cells(i, j) <> "" Then
X = X - 1
deg(X) = Cells(i, j)
End If
Next
    For k = 21 To 13 Step -1
    Cells(i, k) = deg(k - 12)
    deg(k - 12) = Empty
    Next
Next
End Sub

 

[hamza8625]

Merhaba

Bu kodu standart modüle yazarak deneyiniz.

Sub VerileriSağaYasla()
        Range("L3:U36").ClearContents
ssat = Range("A1048576").End(3).Row
Dim deg(1 To 10) As Variant
For i = 3 To ssat
Cells(i, "L") = Cells(i, "A")
Next

For i = 3 To ssat
X = 10
For j = 10 To 2 Step -1
If Cells(i, j) <> "" Then
X = X - 1
deg(X) = Cells(i, j)
End If
Next
    For k = 21 To 13 Step -1
    Cells(i, k) = deg(k - 12)
    deg(k - 12) = Empty
    Next
Next
End Sub

Çok teşekkür ederim üstat. Eline sağlık saat gibi çalışıyor.

 

[hamza8625]

Merhaba

Bu kodu standart modüle yazarak deneyiniz.

Sub VerileriSağaYasla()
        Range("L3:U36").ClearContents
ssat = Range("A1048576").End(3).Row
Dim deg(1 To 10) As Variant
For i = 3 To ssat
Cells(i, "L") = Cells(i, "A")
Next

For i = 3 To ssat
X = 10
For j = 10 To 2 Step -1
If Cells(i, j) <> "" Then
X = X - 1
deg(X) = Cells(i, j)
End If
Next
    For k = 21 To 13 Step -1
    Cells(i, k) = deg(k - 12)
    deg(k - 12) = Empty
    Next
Next
End Sub

Merhaba üstat. yazdığınız makro saat gibi çalışıyor. bunun satır sayısını değiştirebiliyorum lakin genişliğini değiştiremiyorum. Size zahmet olmazsa bunun 30 sutun genişliğinde olanına göre bir kod yazabilirmisiniz. Tekrardan teşekkür ediyorum.

ÖRNEK DOSYA.xlsx

Sayfa1 (2) MEVCUT DURUMU 15830,-3,3500003,181,3796539,-3,3500003,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539,181,3796539 15830,008,-3,35,181,3796539,-3,35,181...

docs.google.com

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub VerileriSağaYasla_2()
ssat = Range("A1048576").End(3).Row
        Range("AF3:BI" & ssat).ClearContents
Dim deg(1 To 30) As Variant
For i = 3 To ssat
Cells(i, "AF") = Cells(i, "A")
Next

For i = 3 To ssat
X = 30
For j = 30 To 2 Step -1
If Cells(i, j) <> "" Then
X = X - 1
deg(X) = Cells(i, j)
End If
Next
    For k = 61 To 33 Step -1
    Cells(i, k) = deg(k - 32)
    deg(k - 32) = Empty
    Next
Next
End Sub

 

[hamza8625]

Merhaba

Bunu deneyiniz.

Sub VerileriSağaYasla_2()
ssat = Range("A1048576").End(3).Row
        Range("AF3:BI" & ssat).ClearContents
Dim deg(1 To 30) As Variant
For i = 3 To ssat
Cells(i, "AF") = Cells(i, "A")
Next

For i = 3 To ssat
X = 30
For j = 30 To 2 Step -1
If Cells(i, j) <> "" Then
X = X - 1
deg(X) = Cells(i, j)
End If
Next
    For k = 61 To 33 Step -1
    Cells(i, k) = deg(k - 32)
    deg(k - 32) = Empty
    Next
Next
End Sub

Tekrardan çok teşekkür ediyorum. Elinize sağlık.