satır aralarını silme hakkında

[sömürgen]

arkadaşlar bu kodların içinden Q1 ile Q22 arasındaki satırları komple silmek istiyorum Q1 ve Q22 dursun istiyorum ilginize teşekkürler





N17 Q1
N19 G03 X50.25 Y20.132 I2.625 J0
N20 G03 X50.25 Y20.132 I-5.125 J0
N21 G01 X50.15
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N27 G03 X50.25 Y140.132 I2.625 J0
N28 G03 X50.25 Y140.132 I-5.125 J0
N29 G01 X50.15
N30 Q22
N31 G0 X45 Y260.132
N33 Q1
N35 G03 X50.25 Y260.132 I2.625 J0
N36 G03 X50.25 Y260.132 I-5.125 J0
N37 G01 X50.15
N38 Q22
N39 G0 X75.166 Y253.656
N41 Q1
N43 G01 X66.362 Y254.496
N44 G03 X65.25 Y253.502 I-0.112 J-0.994
N45 G01 Y231.501
N46 G03 X65.741 Y228.903 I-0.125 J-1.369
N47 G01 Y223.418
N48 G03 X74.529 Y192.749 I67.147 J2.647
N49 G02 X74.529 Y87.515 I-77.199 J-52.617
N50 G03 X65.741 Y56.846 I58.359 J-33.316
N51 G01 Y51.362
N52 G03 X65.25 Y48.763 I-0.616 J-1.229
N53 G01 Y5.132
N54 G02 X60.125 Y0.007 I-5.125 J0
N55 G01 X30.125
N56 G02 X25 Y5.132 I0 J5.125
N57 G01 Y48.763
m30

 

[Ömer]

Merhaba,

Yapmak istediğiniz;

Metnin içinde Q1 yada Q2 geçiyorsa silme, geçmiyorsa sil mi?

 

[sömürgen]

yok hayır sadece Q1 satırının altındakileri silsin Q2 satırı görünceye kadar sonra tekrar örnek veriyorum ilginize teşekkürler

N17 Q1
N19 G03 X50.25 Y20.132 I2.625 J0
N20 G03 X50.25 Y20.132 I-5.125 J0
N21 G01 X50.15
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N27 G03 X50.25 Y140.132 I2.625 J0
N28 G03 X50.25 Y140.132 I-5.125 J0
N29 G01 X50.15
N30 Q22
N31 G0 X45 Y260.132
N33 Q1
N35 G03 X50.25 Y260.132 I2.625 J0
N36 G03 X50.25 Y260.132 I-5.125 J0
N37 G01 X50.15
N38 Q22
N39 G0 X75.166 Y253.656
N41 Q1
N43 G01 X66.362 Y254.496
N44 G03 X65.25 Y253.502 I-0.112 J-0.994
N45 G01 Y231.501
N46 G03 X65.741 Y228.903 I-0.125 J-1.369
N47 G01 Y223.418
N48 G03 X74.529 Y192.749 I67.147 J2.647
N49 G02 X74.529 Y87.515 I-77.199 J-52.617
N50 G03 X65.741 Y56.846 I58.359 J-33.316
N51 G01 Y51.362
N52 G03 X65.25 Y48.763 I-0.616 J-1.229
N53 G01 Y5.132
N54 G02 X60.125 Y0.007 I-5.125 J0
N55 G01 X30.125
N56 G02 X25 Y5.132 I0 J5.125
N57 G01 Y48.763
N42 Q2
m30


bu komutları aşağıdaki gibi değiştirsin istiyorum


N17 Q1
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N30 Q22
N31 G0 X45 Y260.132
N33 Q1
N38 Q22
N39 G0 X75.166 Y253.656
N41 Q1
N42 Q2
m30


sadece Q1 ve Q2 arasında ne varsa silsin
İLGİLENEN ARKADAŞLARA TEŞEKKÜRLER

 

[Ömer]

Bu şekilde açıklamanızı tam olarak anlayamıyorum. Küçük bir örnek dosya ekleyerek, dosya üzerinde adres göstererek detaylı açıklama yaparmısınız.

 

[sömürgen]

tam anlatamadım galiba aşağıda excel de olan yazılar var mesela

%
N17 Q1
N19 G03 X50.25 Y20.132 I2.625 J0
N20 G03 X50.25 Y20.132 I-5.125 J0
N21 G01 X50.15
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N27 G03 X50.25 Y140.132 I2.625 J0
N28 G03 X50.25 Y140.132 I-5.125 J0
N29 G01 X50.15
N30 Q22
%

N17 Q1 VAR N22 DE Q22 YE KADAR ARADAKİ SATIRLAR SİLİNSİN
N19 SİLSİN
N20 SİLSİN
N21 SİLSİN
N22 Q22 DURSUN
N23 DURSUN
N25 Q1 DURSUN
N27 SİLSİN
N28 SİLSİN
N29 SİLSİN
N30 Q22 DURSUN

YANİ Q1 İLE Q22 ARASINDA NE KADAR SATIR VARSA SİLSİN DİĞERLERİ DURSUN

AŞAĞIDAKİ BAŞKA BİR ÖRNEK

BÖYLE Bİ SAYFAYI

N17 Q1
N19 G03 X50.25 Y20.132 I2.625 J0
N20 G03 X50.25 Y20.132 I-5.125 J0
N21 G01 X50.15
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N27 G03 X50.25 Y140.132 I2.625 J0
N28 G03 X50.25 Y140.132 I-5.125 J0
N29 G01 X50.15
N30 Q22
N31 G0 X45 Y260.132
N33 Q1
N35 G03 X50.25 Y260.132 I2.625 J0
N36 G03 X50.25 Y260.132 I-5.125 J0
N37 G01 X50.15
N38 Q22
N39 G0 X75.166 Y253.656
N41 Q1
N43 G01 X66.362 Y254.496
N44 G03 X65.25 Y253.502 I-0.112 J-0.994
N45 G01 Y231.501
N46 G03 X65.741 Y228.903 I-0.125 J-1.369
N47 G01 Y223.418
N48 G03 X74.529 Y192.749 I67.147 J2.647
N49 G02 X74.529 Y87.515 I-77.199 J-52.617
N50 G03 X65.741 Y56.846 I58.359 J-33.316
N51 G01 Y51.362
N52 G03 X65.25 Y48.763 I-0.616 J-1.229
N53 G01 Y5.132
N54 G02 X60.125 Y0.007 I-5.125 J0
N55 G01 X30.125
N56 G02 X25 Y5.132 I0 J5.125
N57 G01 Y48.763
N42 Q2
m30

AŞAĞIDAKİ HALE GETİRSİN

N17 Q1
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N30 Q22
N31 G0 X45 Y260.132
N33 Q1
N38 Q22
N39 G0 X75.166 Y253.656
N41 Q1
N42 Q2
m30


TEŞEKKÜRLER

 

[sömürgen]

Ekli dosyayı görüntüle Kitap1.xls

örnek liste

 

[Ömer]

Module kopyalarak çalıştırınız.

Sub Arasini_Bul_ve_Sil()
 
    Dim i As Long, bt As Long, bs As Long
 
    bt = 0: bs = 0
 
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
 
        If Cells(i, "A") Like "*Q22*" Then
            If bt = 0 Then bt = i - 1
        End If
 
        If Cells(i, "A") Like "*Q1*" Then
            If bs = 0 Then bs = i + 1
        End If
 
        If Not bt = 0 And Not bs = 0 Then
            Rows(bs & ":" & bt).Delete
            bt = 0: bs = 0
        End If
 
    Next i
 
End Sub

.

 

[sömürgen]

ellerinden öpüyorum büyüksün abicim

TEŞEKKÜR EDERİM

 

[Ömer]

Estağfurullah. İşinize yaradığına sevindim.

İyi çalışmalar.