Sutunda verileri aşağı doğru kaydırma

YTalisman · Pazar saat 12:15'de

Merhaba,

Ekteki dosyada A kolonunda bulunan X değerlerinden sildiğimde B kolonundaki değerleri C kolonunda bir aşağı kaydırarak yazması. Ekteki dosyada istediğim similasyonu C kolonuna işledim.

Yardımlarınız için şimdiden teşekkürler,

Muzaffer Ali · Pazar saat 12:57'de

Merhaba.
VBA kod ile çözümü ektedir.

YTalisman · Pazar saat 13:09'de

Merhaba,
Cevabınız için teşekkür ederim fakat. X silip tekrar yazıp sildikçe aşağı doğru kaydırmaya devam ediyor. X sildikçe kaydıracak tekrar yazdığımızda geri alacak gibi yapabilirmiyiz.

Muzaffer Ali · Pazar saat 13:14'de

Bunun formül ile yapılabileceğini sanmıyorum. Belki yapılabilir ama çok uzun formül gerektirir ve dosyanızı ağırlaştırır. Kullanışlı olmaz.

Muzaffer Ali · Pazar saat 13:18'de

2. mesajdaki dosyayı yeniledim.

YTalisman · Pazar saat 13:27'de

Merhaba,

2 Tane X alt alta sildiğimde hata yapıyor.

X

1%

X

3%

X

5%

x

10%

X

20%

X

25%

30%

X

35%

30%

X

39%

35%

40%

39%

X

41%

40%

X

45%

40%

46%

41%

47%

45%

X

48%

46%

X

49%

46%

X

51%

47%

X

53%

47%

X

55%

48%

Muzaffer Ali · Pazar saat 13:41'de

Yanına doğru sonucu yazarak gösterir misiniz.

YTalisman · Pazar saat 13:45'de

Merhaba,

Sistemin bu şekilde çalışması lazım.

X

1%

X

3%

X

5%

x

10%

X

20%

X

25%

30%

X

35%

30%

X

39%

35%

40%

39%

X

41%

39%

X

45%

40%

46%

41%

47%

41%

X

48%

41%

X

49%

45%

X

51%

46%

X

53%

47%

X

55%

48%

Muzaffer Ali · Pazar saat 13:53'de

1- 39% nin yanında X yazıyor ama C de iki tane 39% olması lazım diyorsunuz? (Bir tane olması lazım)
2- 40% nin yanında X yazmıyor ama C de bir tane 40% var. (İki tane olması lazım)
3- 46% nin yanında X yazmıyor ama C de bir tane 46% var. (İki tane olması lazım)
4- 47% nin yanında X yazmıyor ama C de bir tane 47% var. (İki tane olması lazım)

Burayı anlamadım neden böyle olması gerekiyor? Eğer bu böyle olacaksa 1. mesajda söylediklerinize ters düşüyor.
Sanırım ben soruyu anlamadım.

YTalisman · Pazar saat 15:10'de

Merhaba,
%39 un yanında X yazıyor. %30 un karşısındaki X olmadığı için bir alta kayarak geliyor. %35 yazması doğru. %40 ın yazındaki X de olmadığı için %41 in karşısına %39 yazması doğru.

Yani kısacası B kolonu bir yerden sonra devreden çıkıyor. C kolonunu aslında aşağıya doğru kaydırması gerekiyor. B kolonun sadece hangi sayıdan sonra ne gelmesi gerektiğini gösteren bir tablo gibi düşünün.

Muzaffer Ali · Pazar saat 15:25'de

O zaman B sütununu hiç dikkate almayacağım doğru mu?

Sayfanın kod kısmındaki kodu silip yerine aşağıdakini kopyalayın.

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Range("A:A"), Target) Is Nothing Then
            Application.EnableEvents = False
            If Target = "" Then
                Target(1, 3).Copy
                Target(1, 3).Insert Shift:=xlDown
                Application.CutCopyMode = False
            Else
                Target(1, 3).Delete Shift:=xlUp
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

YTalisman · Pazar saat 15:44'de

Merhaba,

Bu kod istediğim gibi çalışmıyor. Tekrardan istediğimi anlatmak istiyorum.

A kolonundaki X i sildiğimizde B kolonundaki değeri C kolonundaki bir alt hücreye yazması. Daha sonra aşağıdaki satırlarda A kolonundaki X i sildiğimizde en son A kolonundaki X yazan hücrenin karşısında bulunan C kolonundaki değerden sonraki B Kolonunda yazan değerin bir altında bulunan değeri C Kolonuna yazması. Anlatması ve anlaması biraz zor oldu ama.

Yani bu şekilde çalışacak.

X	1%	1%
X	3%	3%
X	5%	5%
x	10%	10%
X	20%	20%
X	25%	25%
	30%	30%
X	35%	30%
X	39%	35%
	40%	39%
X	41%	39%
X	45%	40%
	46%	41%
	47%	41%
X	48%	41%
X	49%	45%
X	51%	46%
X	53%	47%
X	55%	48%

İyi Günler,

Muzaffer Ali · Pazar saat 16:14'de

1 inci X2i silmeden önce B ve C sütunları her zaman eşit değil mi?
Eğer eşitse
1 inci X'i sildiğinizde b'yi dikkate alsa yada c'yi dikkate alsa bir şey değişemez ki. Zaten hepsi aynı sırada değil mi?

11. mesajda yazdığım kodu denediniz mi?

Muzaffer Ali · Pazar saat 16:22'de

Olmadıysa bir de bunu deneyin.

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Stn As Long
    If Target.Count = 1 Then
        If Not Intersect(Range("A:A"), Target) Is Nothing Then
            Application.EnableEvents = False
            If Target = "" Then
                If WorksheetFunction.CountIf(Range("A:A"), "<>") + 1 = Cells(Rows.Count, "A").End(xlUp).Row Then
                    Stn = 2
                Else
                    Stn = 3
                End If
                Target(1, Stn).Copy
                Target(1, 3).Insert Shift:=xlDown
                Application.CutCopyMode = False
            Else
                Target(1, 3).Delete Shift:=xlUp
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

YTalisman · Pazar saat 17:46'de

Merhaba,

Sonuca çok yaklaştık yanlız şu şekilde olabilir mi? Yeni açtığım D kolonundaki gibi C kolonunu dizmeli. Teşekkürler,

X

1%

X

3%

5%

X

10%

5%

X

20%

10%

X

25%

20%

X

30%

25%

X

35%

30%

39%

35%

Boş Olan X satırındaki C kolonundaki değer İlk Doldurulacak X satırındaki C kolonuna yazmalı.

40%

39%

X

41%

39%

35%

X

45%

40%

39%

X

46%

40%

X

47%

41%

X

48%

45%

X

49%

46%

X

51%

47%

X

53%

48%

X

55%

49%

X

57%

51%

X

58%

53%

X

59%

55%

X

60%

57%

X

61%

58%

X

62%

59%

YTalisman · Dün 14:27 da

Merhaba Muzaffer Ali bey,

Aşağıdaki kodu C3 D3 E3 hücrelerinde çalışabilecek gibi güncelleyebilir misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Stn As Long
If Target.Count = 1 Then
If Not Intersect(Range("A:A"), Target) Is Nothing Then
Application.EnableEvents = False
If Target = "" Then
If WorksheetFunction.CountIf(Range("A:A"), "<>") + 1 = Cells(Rows.Count, "A").End(xlUp).Row Then
Stn = 2
Else
Stn = 3
End If
Target(1, Stn).Copy
Target(1, 3).Insert Shift:=xlDown
Application.CutCopyMode = False
Else
Target(1, 3).Delete Shift:=xlUp
End If
Application.EnableEvents = True
End If
End If
End Sub

Muzaffer Ali · Dün 17:54 da

"A:A" yazan yerleri "C:C"
"A" yazan yerleri "C" ile değiştirmeniz yeterli
Ben düzelttim.

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Stn As Long
    If Target.Count = 1 Then
        If Not Intersect(Range("C:C"), Target) Is Nothing Then
            Application.EnableEvents = False
            If Target = "" Then
                If WorksheetFunction.CountIf(Range("C:C"), "<>") + 1 = Cells(Rows.Count, "C").End(xlUp).Row Then
                    Stn = 2
                Else
                    Stn = 3
                End If
                Target(1, Stn).Copy
                Target(1, 3).Insert Shift:=xlDown
                Application.CutCopyMode = False
            Else
                Target(1, 3).Delete Shift:=xlUp
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

Sutunda verileri aşağı doğru kaydırma

YTalisman

Ekli dosyalar

Muzaffer Ali

Destek Ekibi

Ekli dosyalar

YTalisman

Muzaffer Ali

Destek Ekibi

Muzaffer Ali

Destek Ekibi

YTalisman

Muzaffer Ali

Destek Ekibi

YTalisman

Muzaffer Ali

Destek Ekibi

YTalisman

Muzaffer Ali

Destek Ekibi

YTalisman

Muzaffer Ali

Destek Ekibi

Muzaffer Ali

Destek Ekibi

YTalisman

YTalisman

Muzaffer Ali

Destek Ekibi

X	1%	1%
X	3%	3%
X	5%	5%
x	10%	10%
X	20%	20%
X	25%	25%
	30%	30%
X	35%	30%
X	39%	35%
	40%	39%
X	41%	39%
X	45%	40%
	46%	41%
	47%	41%
X	48%	41%
X	49%	45%
X	51%	46%
X	53%	47%
X	55%	48%

X	1%	1%
X	3%	3%
X	5%	5%
x	10%	10%
X	20%	20%
X	25%	25%
	30%	30%
X	35%	30%
X	39%	35%
	40%	39%
X	41%	39%
X	45%	40%
	46%	41%
	47%	41%
X	48%	41%
X	49%	45%
X	51%	46%
X	53%	47%
X	55%	48%

X	1%	1%
X	3%	3%
X	5%	5%
x	10%	10%
X	20%	20%
X	25%	25%
	30%	30%
X	35%	30%
X	39%	35%
	40%	39%
X	41%	39%
X	45%	40%
	46%	41%
	47%	41%
X	48%	41%
X	49%	45%
X	51%	46%
X	53%	47%
X	55%	48%