ColumnWidth Sorunu

[Shymshec]

Arkadaşlar merhaba, bir çalışma için aşağıdaki kodu yazdım. Kodun çalışmasında herhangi bir sorun yok gibi çalışıyor fakat gizlediğim sütunlarda bulunan hücreler " ActiveCell.Offset(0, - " hücre değirine yazmıyor. Sütun genişliğini 0,5 gibi yapsamda değişikliği yapmıyor. Kodun içerisine " ColumnWidth " ile yüksek değer versem bile verileri yazmıyor.

Konu hakkında ne yapmam gerekiyor. Yardımcı olurmusunuz.
Şimdiden Teşekkürler.

Sub degistir()

b = Sheets("Bıdı Bıdı").Range("I6").Value

z = Sheets("Giriş Kayıt").Range("O24").Value 'Stok Kodu O24
y = Sheets("Giriş Kayıt").Range("O27").Value 'Geliş Sebebi O27
v = Sheets("Giriş Kayıt").Range("O30").Value 'Modalist O30
u = Sheets("Giriş Kayıt").Range("Q24").Value 'Firma Q24
r = Sheets("Giriş Kayıt").Range("Q27").Value 'Açıklama Q27
rr = Sheets("Giriş Kayıt").Range("Q30").Value 'Hedef SüreQ30

bc = Sheets("Bıdı Bıdı").Cells(6, 1).Value 'Stok Kodu & Gelişnedeni
bd = Sheets("Bıdı Bıdı").Cells(6, 2).Value 'Sezon
be = Sheets("Bıdı Bıdı").Cells(6, 3).Value 'Cinsiyet
bf = Sheets("Bıdı Bıdı").Cells(6, 4).Value 'line
bg = Sheets("Bıdı Bıdı").Cells(6, 5).Value 'Satınalma
bh = Sheets("Bıdı Bıdı").Cells(6, 6).Value 'Cins
bi = Sheets("Bıdı Bıdı").Cells(6, 7).Value 'SatılalmaCinsGeliş Nedeni
bk = Sheets("Bıdı Bıdı").Cells(6, 8).Value 'Model
bl = Sheets("Bıdı Bıdı").Cells(6, 11).Value 'Kaçıncı Geliş

Range("J32:J65536").Select
On Error GoTo hata
Selection.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate


ActiveCell.Offset(0, 1).Value = z
ActiveCell.Offset(0, 5).Value = y
ActiveCell.Offset(0, 6).Value = rr
ActiveCell.Offset(0, 8).Value = v
ActiveCell.Offset(0, 7).Value = u
ActiveCell.Offset(0, 15).Value = "X " & r
ActiveCell.Offset(0, -8).Value = bc
ActiveCell.Offset(0, -7).Value = bd
ActiveCell.Offset(0, -6).Value = be
ActiveCell.Offset(0, -5).Value = bf
ActiveCell.Offset(0, -4).Value = bg
ActiveCell.Offset(0, -3).Value = bh
ActiveCell.Offset(0, -2).Value = bi
ActiveCell.Offset(0, -1).Value = bk
ActiveCell.Offset(0, 2).Value = bl


End Sub

 

[Korhan Ayhan]

Selamlar,

Normal şartlarda gizli sütunlarada veri yazdırabilirsiniz. Sanırım kullandığınız kodda bir problem var. Daha iyi anlamak adına dosyanızı eklerseniz problemi daha rahat çözümleyebiliriz.

 

[Shymshec]

Korhan bey ilginiz için teşekkür ederim.

Sanırım kullandığınız kodda bir problem var.

Cümlenizden sonra ışık yandı. Değişkenleri tanımlamışım. Tanımladıktan sonra sütunlar gizliykende verileri aktarıyor.

Kolay gelsin.