İlk satırda bulunan bilgileri alt satırlara kopyalanması

[king kobra]

Arkadaşlar merhaba,

Yapmak istediğim çalışma ekte,
A kolonu baz alınarak D2,E2,F2 hücrelerinin koşula bağlı olarak son satıra kadar aktarılmasını sağlacak koda ihtiyacım var, ilgilenecek ve emeği geçecek tüm arkadaşlara şimdiden teşekkür ederim, Allah hepinizden razı olsun.

Saygılar.

 

[king kobra]

A kolonundaki satır sayısı sabit değildir yani her seferinde değişken ve maksimum 1500 satır olacak şekilde...

 

[Orion1]

Merhaba.
Dosyanız hazır.Ekli dosyayı inceleyiniz.
Dosya Güncellendi.

Sub liste()
Dim sayi As Long, i As Long, sonsat As Long, sayi2 As Long
Sheets("Sayfa1").Select
sonsat = Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("D4:D" & sonsat).Value = Range("D3").Value
Range("E3").Copy
Range("E4:E" & sonsat).PasteSpecial
Application.CutCopyMode = False
sayi = Range("F3").Value + 1
sayi2 = Range("G3").Value + 1
For i = 4 To sonsat
    Cells(i, "F").Value = sayi
    Cells(i, "G").Value = sayi2
    sayi = sayi + 1
    sayi2 = sayi2 + 1
Next i
Application.ScreenUpdating = True
Range("A1").Select
MsgBox "İŞLEM TAMAMLANDI"
End Sub

 

[king kobra]

Sevgili Orion2, inanılmazsınız ! excel.web.tr'yi anlayabilmiş değilim, ücretli hizmet veren kurumlarda bile bu kadar süratli ve tam 12 den vuran adrese teslim çözüm ve iş çıkmıyor, gerçekten çok iyisiniz, elleriniz dert görmesin Allah CC hepinizden razı olsun.
Sevgi ve Saygılar.

 

[Orion1]

Sevgili Orion2, inanılmazsınız ! excel.web.tr'yi anlayabilmiş değilim, ücretli hizmet veren kurumlarda bile bu kadar süratli ve tam 12 den vuran adrese teslim çözüm ve iş çıkmıyor, gerçekten çok iyisiniz, elleriniz dert görmesin Allah CC hepinizden razı olsun.
Sevgi ve Saygılar.

Yardımcı olabildiysem ne mutlu bana.
İyi çalışmalar.

 

[king kobra]

Sevgili Orion2,

Aslında tablo çok daha fazla kolondan oluşuyordu ,yapılacak işlem kopya ve +1 ile sayıları arttırmak şeklinde iki ayrı işlemdi, ancak sizleri çok yormamak için örneği kısa tuttum, şu an sizin örneğinize göre gerçek tabloyu oluşturuyorum, birşey dikkatimi çekti;
Range("E3:E" & sonsat).NumberFormat = "0000000" satırında tam sayı olarak kodlamışsınız ancak bu bilgi karakter olacaktı yani A00008 şeklinde de olabilir , acaba sorun olurmu, yoksa kodu karakter olarak düzeltmek gerekirmi ?

Sevgiler.

Yardımcı olabildiysem ne mutlu bana.
İyi çalışmalar.

 

[Orion1]

Sevgili Orion2,

Aslında tablo çok daha fazla kolondan oluşuyordu ,yapılacak işlem kopya ve +1 ile sayıları arttırmak şeklinde iki ayrı işlemdi, ancak sizleri çok yormamak için örneği kısa tuttum, şu an sizin örneğinize göre gerçek tabloyu oluşturuyorum, birşey dikkatimi çekti;
Range("E3:E" & sonsat).NumberFormat = "0000000" satırında tam sayı olarak kodlamışsınız ancak bu bilgi karakter olacaktı yani A00008 şeklinde de olabilir , acaba sorun olurmu, yoksa kodu karakter olarak düzeltmek gerekirmi ?

Sevgiler.

O zaman o satırı siliniz.

 

[Orion1]

Şimdi denedim .Silmesenizde olur .Kodlar sorunsuz çalışıyor.

 

[king kobra]

Teşekkür ederim, deniyorum hemen.

 

[Orion1]

Şimdi denedim .Silmesenizde olur .Kodlar sorunsuz çalışıyor.

Yukarıdaki mesajımı okudunuzmu?

 

[king kobra]

İki türlüde denedim, sorun çıkmadı, ancak şöyle bir sorun var E3 kolonundaki veri '0000001 şeklinde duruyor, kopyalama sonucunda 0000001 olarak oluşuyor verinin başında ' değerinin oluşması için kodu revize edebilirmisiniz bir ricam daha olacak F kolonu için yaptığımız +1 işlemin G kolonu içinde yapabilirmiyiz yani farklı numaralardan başlayacak şekilde iki ayrı kolonda +1 formülüne ihtiyacım var.

Şimdi denedim .Silmesenizde olur .Kodlar sorunsuz çalışıyor.

 

[king kobra]

Aşağıdaki şekilde kopyaladım ve çalıştı acaba doğrumudur yaptığım işlem ?

sayi = Range("X2").Value + 1
For i = 3 To sonsat
Cells(i, "X").Value = sayi
sayi = sayi + 1
Next i

sayi = Range("Y2").Value + 1
For i = 3 To sonsat
Cells(i, "Y").Value = sayi
sayi = sayi + 1
Next i

 

[Orion1]

İki türlüde denedim, sorun çıkmadı, ancak şöyle bir sorun var E3 kolonundaki veri '0000001 şeklinde duruyor, kopyalama sonucunda 0000001 olarak oluşuyor verinin başında ' değerinin oluşması için kodu revize edebilirmisiniz bir ricam daha olacak F kolonu için yaptığımız +1 işlemin G kolonu içinde yapabilirmiyiz yani farklı numaralardan başlayacak şekilde iki ayrı kolonda +1 formülüne ihtiyacım var.

Dosyayı istediğiniz şekilde güncelledim.
Önceki mesajımdan indirebilirsiniz.

 

[king kobra]

İşlem tamamdır, tekrar teşekkür ederim, sağolun.