sütun adı harf yerine rakam çıkıyor + liste

[byfeat]

illede + liste

Arkadaşlar ekteki dosya bazı dostlara tanıdık gelecektir
isteğim;
sütun adı neden harf yerine rakam çıkıyor
bu yüzden sorunumu anlatmakta güçlük çektim
2.inci husus daha önceden dostların elbirliğiyle yapılmış ekteki çalışma kitabının firmalar sayfası E sütununda * işareti olanlar
liste sayfasında c7 ile c 36 arasına
F sütunundaki satır,

firmalar E sütununda * işareti olanlar
liste sayfasında G7 ile G36 arasına
K sütunundaki satır gelecek.

Etiket sayfasında olduğu gibi olabilir ancak buton olması illede gerekmiyor,
özetle (firmalar F ve K sütunlarından oluşan liste)
etiket gibi kodlardan düzenlemeye çalıştım uğraştıkça battım.
ayrıca iş yoğunluğundan 2 saatte taksit taksit burayı yazabildim anlatabildim sanırım.
Daha önceden konuyla ilgilenen Veyselemre ve mesudiye52 arkadaşlara teşekkürlerimle
herkese kolay gelsin
sevgilerle

 

[Recep İpek]

1.sorunuzun cevabı
Tools(Araçlar)>>Options(Seçenekler)>>General(Genel)>>R1C1 refarence style onayını kaldırmanız yeterlidir.

 

[byfeat]

1. soru tamam darısı 2 ye

teşekkürler ripek
sütun adı sorunu çözüldü ve yeni bilgi sahibi oldum.

umut ediyorum kısa zamanda
listeleme işimde hallolur
sevgilerimle

 

[veyselemre]

Sub ListeyeAktar()
Set s1 = Sheets("FİRMALAR")
Set s2 = Sheets("Liste")

adet = WorksheetFunction.CountA(s1.Range("E5:E65536"))

If adet > 30 Then
    adet = 30
    MsgBox "Bir seferde en fazla 30 kayıt aktarılabilir," & vbCr & "seçili ilk 30 kayıt aktarılacak"
End If

s2.[c6:g30].ClearContents

sira = 6
For x = 5 To s1.[E65536].End(3).Row
    If s1.Cells(x, 5) = "*" Then
        s2.Cells(sira, "C") = s1.Cells(x, "F")
        s2.Cells(sira, "G") = s1.Cells(x, "K")
        sira = sira + 1
    End If
Next x
End Sub

 

[byfeat]

teşekkürlerimle

veyselemre kardeş
teşekkürler.
sabredemedim her işi bıraktım bunu denedim harika oldu liste c5ten başlıyor c30 da bitiyor c6 dan c35 e olacaktı inşallah düzeltirim. olmazsa yine başını ağrıtacağım (yaşasın yapabildim tarifde edememişim zaten)
ellerine sağlık.
sevgilerle

 

[veyselemre]

Yukarıdaki kod da satır kontrolu unutulmuş, düzelttim.

Sub ListeyeAktar()
Set s1 = Sheets("FİRMALAR")
Set s2 = Sheets("Liste")

adet = WorksheetFunction.CountA(s1.Range("E5:E65536"))

If adet > 30 Then
    adet = 30
    MsgBox "Bir seferde en fazla 30 kayıt aktarılabilir," & vbCr & "seçili ilk 30 kayıt aktarılacak"
End If

s2.[c6:g36].ClearContents

sira = 6
For x = 5 To s1.[E65536].End(3).Row
    If sira > 36 Then Exit Sub
    If s1.Cells(x, 5) = "*" Then
        s2.Cells(sira, "C") = s1.Cells(x, "F")
        s2.Cells(sira, "G") = s1.Cells(x, "K")
        sira = sira + 1
    End If
Next x
End Sub