aktif satır sayısı kadar kopyalamak

[Erdem Akdemir]

ekteki dosyadaki makroyu çalıştırdığımda c2'de yazan formülün,

c2'den itibaren aktif olan satır sayısı kadar kopyalasın

 

[Erdem Akdemir]

üstadlar şuna bir el atın lütfen o kadar zor olmasa gerek

 

[ozgretmen]

ActiveCell.FormulaR1C1 = "=+IF(LEN(RC[-2])>10,RC[-1],R[-1]C)"

Yukarıdaki kodu silip , yerine aşağıdaki kodı yazarsanız olur gibi...

For i = 2 To [C65536].End(3).Row
If Len(Cells(i, "A").Value) > 10 Then
Cells(i, "C").Value = Cells(i, "B")
Else
End If
Next i

 

[Erdem Akdemir]

üstadım benim istediğim orda firma isimlerini yazdırmaktı

siz ise b sütünunda yazanları c sütununa yazdırmışsınız

tekrar bir el atsanız

 

[ozgretmen]

üstadım benim istediğim orda firma isimlerini yazdırmaktı
siz ise b sütünunda yazanları c sütununa yazdırmışsınız
tekrar bir el atsanız

Firma isimleri B de değil mi ki zaten ?

 

[Erdem Akdemir]

Firma isimleri B de değil mi ki zaten ?

üstadım mantık şöyle

eğer a hücresindeki değerin uzunluğu 10'dan büyük ise, c hücresi
b hücresindeki değeri alabilir, değil ise c hücresi bir üst c hücredeki değeri alacak. benim yazdığım fonksiyon onu yapıyordu

 

[ozgretmen]

Aşağıdaki şekilde dener misin ?

For i = 2 To [C65536].End(3).Row
If Len(Cells(i, "A").Value) > 10 Then
Cells(i, "C").Value = Cells(i, "B")
Else
Cells(i, "C").Value = Cells(i - 1, "C").Value
End If
Next i

 

[Erdem Akdemir]

Aşağıdaki şekilde dener misin ?

For i = 2 To [C65536].End(3).Row
If Len(Cells(i, "A").Value) > 10 Then
Cells(i, "C").Value = Cells(i, "B")
Else
Cells(i, "C").Value = Cells(i - 1, "C").Value
End If
Next i

hocam eline sağlık

çok büyüksün :bravo:

 

[ozgretmen]

hocam eline sağlık
çok büyüksün :bravo:

Kendi çapımızda...İyi çalışmalar...