kod hatası

[el-vis]

ekli dosyada da görüleceği gibi sayfada bir buton yapıp makro atadığımda ve
kodu da ilgili sayfanın kod bölümüne yazdığımda hata vermektedir.Bubub düzeltilmesi mümkünmüdür acaba.teşekkürler

 

[turist]

Ekli dosyayı inceleyiniz.

 

[el-vis]

SİZE GÖNDERDİĞİM TABLODA SIRALA BUTONUNA BASINCA İSTENİLDİĞİ GİBİ SIRALIYOR,FAKAT TABLOYA BARKOD GİRİRMEYE DEVAM EDİP SIRALA BUTONUNA BASTIĞIMDA "RUN TİME EROR '12': TYPE MİSMATCH MESAJINI VERİYOR. GELEN PENCEREDE DEBUG BUTONUNA BASINCA if cells('i,"f") <>cells (i+1."F") Then satırını kod kısmında sarı olarak görüyorum...VE ÜRÜN KISMINDAKİ HÜCRE BİRLEŞTİRMESİNE DE DEVAM ETMİYOR

 

[turist]

SİZE GÖNDERDİĞİM TABLODA SIRALA BUTONUNA BASINCA İSTENİLDİĞİ GİBİ SIRALIYOR,FAKAT TABLOYA BARKOD GİRİRMEYE DEVAM EDİP SIRALA BUTONUNA BASTIĞIMDA "RUN TİME EROR '12': TYPE MİSMATCH MESAJINI VERİYOR. GELEN PENCEREDE DEBUG BUTONUNA BASINCA if cells('i,"f") <>cells (i+1."F") Then satırını kod kısmında sarı olarak görüyorum...VE ÜRÜN KISMINDAKİ HÜCRE BİRLEŞTİRMESİNE DE DEVAM ETMİYOR

Bu sorunu 2 farklı şekilde çözebilirsiniz.
1-) C kolonuna girdiğiniz barkodlar hangi satıra kadar (örnek:C100) ise;
F Kolonundaki formülleri en fazla F100'e kadar kopyalayın. Daha aşağıya kadar inerseniz bu hatayı verir.
2-) 1.ci çözümü yapmak istemezseniz;
VBA - Macro koduna On Error Resume Next satırını aşağıdaki gibi ilave edin.

For i = 3 To Cells(Rows.Count, "F").End(xlUp).Row
        If Cells(i, "F") <> Cells(i + 1, "F") Then
            son = i
            say = say + 1
            With Range("B" & ilk & ":B" & son)
                .Merge
                .Borders.Weight = xlThick
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
            Range("B" & ilk) = say
            ilk = i + 1
        End If
    Next i
[COLOR="Red"][B]On Error Resume Next[/B][/COLOR]
    Application.ScreenUpdating = True
End Sub

 

[el-vis]

Şu an oldu, fakat tabloda en alttaki dört stırı ( ki model numaraları aynıdır)birleştirip sıra numarası vermiyor.Program bu şekilde mi işlemektedir acaba?