Sütunlardaki verileri ilgili sütüna getirmek.

[Vedat Özer]

Merhaba,


Askerlik sebebiyle çoktan beri siteden uzak oldugum için bazı bilgileri unutmuş oluyorum. Bunun için sizlerin yardımına ihtiyaç duyuyorum.

Benim elimde bir stok tablosu var burda yapmak istediğim. H sütunundan sonra yaklaşık 70 veya seksen tane sütunda ambarlar var. Her ambaraın sütununa gitmek yerine bir sayesinde h sütununa o bilgileri listelemek ve yaptıgım değişikliği tekrardan aynı sütuna göndermek.

Gerekli dosyayı yüklüyorum.

Şimdiden Teşekkür Ederim.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
Application.ScreenUpdating = False

Set bul = Range("I1:HL1").Find(Range("H1"), , xlValues, xlWhole)
If Not bul Is Nothing Then
Columns(bul.Column).Copy
Columns(8).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[Emir Hüseyin Çoban]

. . .

Son halini sütuna göndermek için

Sub kod_update()
Application.ScreenUpdating = False

Set bul = Range("I1:HL1").Find(Range("H1"), , xlValues, xlWhole)
If Not bul Is Nothing Then

Columns(8).Copy
Columns(bul.Column).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False
End If

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[Vedat Özer]

Merhaba,

Çok teşekkür ederim.