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

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

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
23
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,325
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 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: 27

rapp5

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
23
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

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
23
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,325
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 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

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
23
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,325
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 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

Yeni Üye
Katılım
3 Ocak 2019
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
23
Konum
Ankara
Ad Soyad
Özgür Avcil
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.

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