Kod Birleştirme Hk.

[valentino06]

Merhaba Arkadaşlar lütfen yardımcı olabilir misiniz. Excel kitabımda bulunan özet sayfasında çalıştırmak istediğim kodu birleştirmek istiyorum. hata veriyor. çok teşekkür ederim.

Saygılarımla,
İyi çalışmalar.

1. kod
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo son
If Target.Column = 2 And Target.Offset(0, -1) <> Empty Then
prt = Target.Value
X = 2
Range("AM2:AM20").ClearContents
For i = 9 To 0 Step -1
Cells(X, "AM") = prt & ")_R" & i
X = X + 1
Next i
Target.Offset(1, 0).Select
End If
son:
End Sub

2. kod

'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Application.CommandBars("Cell").Reset
'If Intersect(Target, [B10:B11]) Is Nothing Then Exit Sub
'Call ac
'Selection.ColumnWidth = 16.71
'End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        If Target.Offset(0, -1) <> Empty Then
            prt = Target.Value
            X = 2
            Range("AM2:AM20").ClearContents
            For i = 9 To 0 Step -1
                Cells(X, "AM") = prt & ")_R" & i
                X = X + 1
            Next i
            Target.Offset(1, 0).Select
        End If
    End If
    If Not Intersect(taget, Range("B10:B11")) Is Nothing Then
        Application.CommandBars("Cell").Reset
        Call ac
        Selection.ColumnWidth = 16.71
    End If
End Sub

Selection.ColumnWidth = 16.71 satırı yerine hangi kolonun genişliğini ayarlamak istiyorsanız aşağıdaki gibi yapın.
Columns("B").ColumnWidth = 16.71

Eğer sorun çözülmezse öncelikle ne hatası verdiğini söylemelisiniz.
Dosyanızı da paylaşırsanız çok daha hızlı sözüm bulunur.

 

[valentino06]

Sayın Muzaffer Hocam öncelikle çok teşekkür ederim. Hocam komple error hatası veriyor. örnek paylaşacağım lütfen yardımcı olabilir misiniz.