• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Excel Satır Atlayarak Kopyalama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
rapp5

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
10
En iyi yanıt
0
Puanları
3
Yaş
27
Konum
Ankara
Ad Soyad
Özgür Avcil
Merhaba Arkadaşlar bir sorun yaşıyorum ;


gr8qr0.png



Şöyle bir tablom var bundaki değerleri şuradan çekiyorum ;

bVDrVm.png




Bu formül aynı şekilde 1002-1003 diye devam ediyor fakat formülü kopyaladığım zaman bir satır alttaki 1002 yerine 1018'i alıyor nasıl düzeltebilirim ?

Dosya burada : Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı
 
Murat OSMA

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,610
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Microsoft 365 TR+EN
Merhabalar,
Bu iş için makro kullanmanızı öneririm.
Dosyanıza yeni bir sayfa ekleyip bu kodları kullanabilirsiniz. (y)
PHP: 
Sub Emre()
    Dim i&, son&
    Sayfa2.Cells.Clear
    For i = 3 To Sayfa1.Range("B65536").End(3).Row
        With Sayfa2
            son = .Range("D65536").End(3).Row
            .Cells(son, 1) = Sayfa1.Cells(i, 2).Value
            .Cells(son, 2) = "Linear Add"
            .Cells(son, 3) = "No"
            Sayfa1.Range("D2:T2").Copy
            .Range("D" & son).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            Sayfa1.Range("D" & i & ":T" & i).Copy
            .Range("E" & son).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            .Cells(son, 6) = "None"
            .Cells(son, 7) = "None"
            .Cells(son, 8) = "None"
            son = son + 17
        End With
    Next i
    Sayfa2.Cells.ClearFormats
    i = Empty: son = Empty
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
End Sub
Dosyanızı da ekledim.
Hoşça kalın.
 

Ekli dosyalar

  • Diğer Sayfada Listele.rar
    53 KB · Görüntüleme: 31
rapp5

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
10
En iyi yanıt
0
Puanları
3
Yaş
27
Konum
Ankara
Ad Soyad
Özgür Avcil
Hocam varya kralsın sen çok teşekkür ederim! Ellerine sağlık, çok işime yaradı.
 
Moderatör tarafında düzenlendi:
rapp5

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
10
En iyi yanıt
0
Puanları
3
Yaş
27
Konum
Ankara
Ad Soyad
Özgür Avcil
Hocam çok güzel ama bir isteğim olacaktı. Acaba neden PSV_Y'yi almamış?
 
Moderatör tarafında düzenlendi:
Murat OSMA

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,610
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Microsoft 365 TR+EN
Kodları bu şekilde revize edebilirsiniz..
PHP: 
Sub Emre()
    Dim i&, son&
    Sayfa2.Cells.Clear
    son = Sayfa2.Range("D65536").End(3).Row
    For i = 3 To Sayfa1.Range("B65536").End(3).Row
        With Sayfa2
            .Cells(son, 1) = Sayfa1.Cells(i, 2).Value
            .Cells(son, 2) = "Linear Add"
            .Cells(son, 3) = "No"
            Sayfa1.Range("D2:T2").Copy
            .Range("D" & son).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            Sayfa1.Range("D" & i & ":T" & i).Copy
            .Range("E" & son).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            .Cells(son, 6) = "None"
            .Cells(son, 7) = "None"
            .Cells(son, 8) = "None"
            son = son + 17
        End With
    Next i
    Sayfa2.Activate
    Sayfa2.Cells.ClearFormats
    i = Empty: son = Empty
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
End Sub
 
rapp5

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
10
En iyi yanıt
0
Puanları
3
Yaş
27
Konum
Ankara
Ad Soyad
Özgür Avcil
Teşekkürler hocam, Sorun neyden kaynaklı acaba? Yani ileride yeni değerler eklenirse; örneğin PSV_Z PSV_A gibi. Hangi kodu değiştirerek ekleme çıkarma yapabilirim acaba?
 
Moderatör tarafında düzenlendi:
Murat OSMA

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,610
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Microsoft 365 TR+EN
Sorun bu satırın olması gereken yerde olmamasından kaynaklıydı..
son = Sayfa2.Range("D65536").End(3).Row
Bu satırda da son = son + 17 kaç satır veriniz varsa +? diyebilirsiniz.
 
rapp5

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
10
En iyi yanıt
0
Puanları
3
Yaş
27
Konum
Ankara
Ad Soyad
Özgür Avcil
Admin' Alıntı:
Sorun bu satırın olması gereken yerde olmamasından kaynaklıydı..
son = Sayfa2.Range("D65536").End(3).Row
Bu satırda da son = son + 17 kaç satır veriniz varsa +? diyebilirsiniz.
Genişletmek için tıkla ...

Yani son = son + 18 yaptığımda eğer yeni bir veri eklediysem onuda ekleyecek mi?

Birde son olarak mesela şu anda 411 satır var 3144'e kadar alıyor eğer ben buna ekleme yaptığımda mesela 3144 eklediğimde veya çıkardığımda kodda bir değişiklik yapmam gerekli mi yoksa en aşşağıda hangi değer varsa otomatik algılayıp mı çekiyor acaba?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt