Alt satırlarada üstündeki satırdaki veriyi girme

[JoKRs]

Merhaba,

ilk resimde üstte yazan ürün numarası ve ürün ismini altındaki şehirlerin yanına nasıl getirebilirim?( Kırmızı yazıyla düzenledeğim şekle nasıl getirebilirim? )

 

[Muhammet Okumuş]

Merhaba,

Sub Kopya()
son = Cells(Rows.Count, 1).End(3).Row
For i = 2 To son
If Cells(i, 2) <> "" Then GoTo 10
Range("B" & i & ":C" & i) = Range("B" & i - 1 & ":C" & i - 1).Value
10
Next
End Sub

Kodu deneyiniz.

 

[Emir Hüseyin Çoban]

Merhaba,

Kodu deneyiniz.

. . .

Alternatif

B ve C sütunlarındaki hücre aralığını seçin >
F5 > Özel > Boşluklar
Ekranda boş hücreler seçilmiş olacaktır.
Seçili alanları bozmadan =B2 yazın ve Ctrl Enter yapın.


Sy Muhammet Bey' in kodlarında da son satır noyu D sütunundan alırsanız daha kolaylık sağlar.

son = Cells(Rows.Count, [B][COLOR="Red"]"D"[/COLOR][/B]).End(3).Row

. . .

 

[Muhammet Okumuş]

Hüseyin Bey, cevabınız için teşekkür ederim. Ancak son satırın A yerine D sütunundan almasının ne gibi kolaylık sağlayacağını anlayamadım.

 

[Emir Hüseyin Çoban]

Hüseyin Bey, cevabınız için teşekkür ederim. Ancak son satırın A yerine D sütunundan almasının ne gibi kolaylık sağlayacağını anlayamadım.

. . .

Tablonun örneğini oluştururken ben A sütununu yapmamıştım.
Kodlarınızı çalıştırırken B sütunu olarak değiştirmiştim. Aklımda o kalmış.

Pardon, sizde A sütununu kullanmışsınız. D sütunu ile ile aynı değeri bulacaktır.
Sorun yok. Teşekkürler.

. . .

 

[Muhammet Okumuş]

Rica ederim. Ben de bilmediğim başka bir yöntem mi var diye sordum.

 

[JoKRs]

Merhaba,

Kodu deneyiniz.

Öncelikle yardımlarınız için çok teşekkür ederim. Makro kısmından ekleyip çalıştırdım ve oldu. Çok teşekkürler tekrardan.

 

[efem67]

Hüseyin bey merhabalar;
yazmış olduğunuz kodu otomatik olarak ;
aşağıda belirttiğim Koşula göre nasıl değiştirebiliriz...

Benim yapmak istediğim E5 ile E10 Arasında herhangi bir hücrede
aynı değer var ise , G5 , H5 açılacak. Açıldığında da 2 aynı değere sahipler
hariç yani değişmeyen diğer değerler G5 Ve H5 e otomatik geçecek..

Private Sub Worksheet_Change(ByVal Target As Range)
If Sayfa1.Range("E5") = Sayfa1.Range("E10") Then
Columns("G:H").EntireColumn.Hidden = False
Else
Columns("G:H").EntireColumn.Hidden = True
End If
End Sub
bu çalışıyor ama yanlızca iki hücrede sorgu yapıyor...