Koşula Göre Satır Ekle

[erkanfun]

aşağıdaki fonksiyondaki problem nedir?

Sub satır_ekle()
Dim x As Integer
x = 16 + WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A:A"))
    Rows("16:16").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Rows("16:x").Insert Shift:=xlDown
    Rows("15:15").Select
    Selection.Copy
    Rows("16:x").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("N1").Select
    End Sub

 

[apocalyt]

genel anlamda fonksiyonun nasl çalışdığnı dosya olmadan ben anlıyamadım..ama hata alcağınızı bir nokta var...

Rows("16: x") kodun 2 yerinde geçen bu ifadeyi bununla değiştirin.. Rows("16:" & x)

 

[erkanfun]

genel anlamda fonksiyonun nasl çalışdığnı dosya olmadan ben anlıyamadım..ama hata alcağınızı bir nokta var...

Rows("16: x") kodun 2 yerinde geçen bu ifadeyi bununla değiştirin.. Rows("16:" & x)

Çok teşekkür ederim. Yalnız neden böyle bir işlem yapma gereği duyduk ve çift tırnak işaretinin yeri neden değişti? Mantığını anlatırsanız sevinirim..

 

[apocalyt]

Şöle ki bu kodda x ' i değişken olarak kullanmışsınız..kodu ilk çalştırdığınızda
x = 16 + WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A:A"))
bu ifadeye göre kod işlem yapıp a sutununun durumuna göre x e bir değer atıcak..diyelim ki 20.

rows("16: x") ifadesindeki x değeri 20 olarak atanamaz..çünkü " " içine yazılmış durumda..çift tırnak içine yazıldğından değişken değilde metinsel bir ifade olarak algılanır..bu durumdada kod hata verir..benim yazdığım şekilde x i çift tırnak içinden çıkararak değişken değerinin yani 20 değerinin atanması sağlanmıştır..bu şekilde kod hata vermez..umarım anlatabilmişimdir..

 

[erkanfun]

Şöle ki bu kodda x ' i değişken olarak kullanmışsınız..kodu ilk çalştırdığınızda
x = 16 + WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A:A"))
bu ifadeye göre kod işlem yapıp a sutununun durumuna göre x e bir değer atıcak..diyelim ki 20.

rows("16: x") ifadesindeki x değeri 20 olarak atanamaz..çünkü " " içine yazılmış durumda..çift tırnak içine yazıldğından değişken değilde metinsel bir ifade olarak algılanır..bu durumdada kod hata verir..benim yazdığım şekilde x i çift tırnak içinden çıkararak değişken değerinin yani 20 değerinin atanması sağlanmıştır..bu şekilde kod hata vermez..umarım anlatabilmişimdir..

Anladım da & işareti nereden çıktı. Arada boşluklar da var.

 

[apocalyt]

& işareti birleştirmek için kullanılır..yukarıda dediğim gibi x diyelimki 20 değerini aldı..

rows("16:" & 20) olucak ..daha sonra rows("16:20") olucak..adım adım bu şekilde işlicek..& yani birleştirmek için kullanılan bir işaret...bşluklara gelince siz boşluksuz bile yazıp bıraksanız kendiliğinden boşluk vericektir kod..yada hata vericektir..

 

[erkanfun]

& işareti birleştirmek için kullanılır..yukarıda dediğim gibi x diyelimki 20 değerini aldı..

rows("16:" & 20) olucak ..daha sonra rows("16:20") olucak..adım adım bu şekilde işlicek..& yani birleştirmek için kullanılan bir işaret...bşluklara gelince siz boşluksuz bile yazıp bıraksanız kendiliğinden boşluk vericektir kod..yada hata vericektir..

Çok teşekkür ederim..

 

[apocalyt]

rica ederim..