[Yardım]  Diğer Sayfalarla Karşılaştırsın İlk Satırı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#1)  avnitoto » 01 May 2019 14:53

İyi Günler kod yazan arkadaşlar

Ekteki soruda yardımcı olurmusunuz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#2)  feraz » 01 May 2019 17:19

Kod: Tümünü seç
Private Sub CommandButton1_Click()
   
  Dim i As Integer, j As Byte, bul As Range, say As Integer
 
Application.ScreenUpdating = False

With Sheets("Sayfa1")
    .Range("M:M").ClearContents
    For i = 2 To .Cells(Rows.Count, 1).End(3).Row
        say = 0
        For j = 1 To 10
            Set bul = .Range(.Cells(i, 1), .Cells(i, 1).Resize(1, 6)).Find(.Cells(1, j).Value, , , 1)
           
            If Not bul Is Nothing Then
                say = say + 1
            End If
            If say >= 6 Then
                .Cells(i, "M").Value = "Sil"
            Else
                .Cells(i, "M").Value = "Silme"
            End If
        Next j
    Next i
End With
  Application.ScreenUpdating = True
  Set bul = Nothing
 
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#3)  feraz » 01 May 2019 17:28

feraz yazdı:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
   
  Dim i As Integer, j As Byte, bul As Range, say As Integer
 
Application.ScreenUpdating = False

With Sheets("Sayfa1")
    .Range("M:M").ClearContents
    For i = 2 To .Cells(Rows.Count, 1).End(3).Row
        say = 0
        For j = 1 To 10
            Set bul = .Range(.Cells(i, 1), .Cells(i, 1).Resize(1, 6)).Find(.Cells(1, j).Value, , , 1)
           
            If Not bul Is Nothing Then
                say = say + 1
            End If
            If say >= 6 Then
                .Cells(i, "M").Value = "Sil"
            Else
                .Cells(i, "M").Value = "Silme"
            End If
        Next j
    Next i
End With
  Application.ScreenUpdating = True
  Set bul = Nothing
 
End Sub


Kodu alttaki gibi değiştirin hız için.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
   
  Dim i As Integer, j As Byte, bul As Range, say As Integer
 
Application.ScreenUpdating = False

With Sheets("Sayfa1")

    .Range("M:M").ClearContents
    For i = 2 To .Cells(Rows.Count, 1).End(3).Row
        say = 0
        For j = 1 To 10
            Set bul = .Range(.Cells(i, 1), .Cells(i, 1).Resize(1, 6)).Find(.Cells(1, j).Value, , , 1)
            If Not bul Is Nothing Then say = say + 1
        Next j
       
            If say >= 6 Then
                .Cells(i, "M").Value = "Sil"
            Else
                .Cells(i, "M").Value = "Silme"
            End If
       
    Next i
End With
MsgBox "Bitti", vbInformation, "Bilgi"
  Application.ScreenUpdating = True
  Set bul = Nothing
 
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#4)  avnitoto » 02 May 2019 09:45

Sonsuz Teşekkürler feraz ustam Mükemmel olmuş

Yanlız ben önemli bir ayrıntıyı unutmuşum
Bunuda eklemeniz mümkün mü


M sutununa 1 2 3 4 5 6 hücreleri eşleşiyorsa yazdırdınız bu Tamam (sizin yaptığınız)

N sutununa 1 2 3 4 5 7 hücreleri eşleşiyorsa yine silme diye eşleşmiyorsa Sil yazsın

O sutununa 1 2 3 4 5 8 hücreleri eşleşiyorsa yine silme diye eşleşmiyorsa Sil yazsın

P sutununa 1 2 3 4 5 9 hücreleri eşleşiyorsa yine silme diye eşleşmiyorsa Sil yazsın

Q sutununa 1 2 3 4 5 10 hücreleri eşleşiyorsa yine silme diye eşleşmiyorsa Sil yazsın

R sutununa 1 2 3 4 6 7 hücreleri eşleşiyorsa yine silme diye eşleşmiyorsa Sil yazsın
---
----
---
Böyle bu şekilde devam ediyor Yane 10 un 6 lı kombinasyonu olan 210 a tekabül ediyor

sanırım anlatabildim.
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#5)  avnitoto » 02 May 2019 09:56

Sonsuz teşekkürler feraz ustam mükemmel olmuş

(Bir üsteki mesaj (No 4) yanlış yazmışım bu doğrusu)

Yanlız ben önemli bir ayrıntıyı unutmuşum
Bunuda eklemeniz mümkün mü


M sutununa 1 2 3 4 5 6 hücreleri eşleşiyorsa Sil yazdırdınız değilse Silme yazdırdınız bu Tamam (sizin yaptığınız)
Benim istediğim şu şekilde devam etsin,

N sutununa 1 2 3 4 5 7 hücreleri eşleşiyorsa Sil eşleşmiyorsa Silme yazsın

O sutununa 1 2 3 4 5 8 hücreleri eşleşiyorsa Sil eşleşmiyorsa Silme yazsın

P sutununa 1 2 3 4 5 9 hücreleri eşleşiyorsa Sil eşleşmiyorsa Silme yazsın

Q sutununa 1 2 3 4 5 10 hücreleri eşleşiyorsa Sil eşleşmiyorsa Silme yazsın

R sutununa 1 2 3 4 6 7 hücreleri eşleşiyorsa Sil eşleşmiyorsa Silme yazsın

---
----
---
Böyle bu şekilde devam ediyor Yane 10 un 6 lı kombinasyonu olan 210 a tekabül ediyor

sanırım anlatabildim.
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#6)  feraz » 02 May 2019 10:08

Rica ederim.
Akşama doğru bakabilirim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#7)  feraz » 02 May 2019 13:20

Mobilden okuyup anlamaya çalıştım fakat anlayamadım.
N,O,P sütunlarına olmadı gerekenleri yazıp dosyayı ekler misiniz?
Tabii açıklama ekleyip.Yinede çözebileceğime söz veremem çünkü o kadar anlamıyorum kodlardan.
Belki diğer kişilerde yardımcı olurlar.
Dünkü farklıydı bildiğim kadarıyla.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#8)  avnitoto » 02 May 2019 16:39

Feraz ustam daha detaylı yazdım umarım anlatabildim

Ekte daha detaylı bilgi ve dosya

(Mobilde bence zor anlaşılır)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#9)  feraz » 02 May 2019 18:11

Koddaki Call kombnasyon( olan yerler çoğaltılacak eğer işlem doğruysa.
Eki deneyin diyeceğim fakat önceki eklediğim dosyayı indirmemişsiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:P").ClearContents
       
           Call kombnasyon("E", "M", 1) 'A:E aralik icin 1 kullanulacak digerler icin ise 2
           Call kombnasyon("G", "N", 2) 'G demek G sütun adi,N demek N sütun adi
           Call kombnasyon("H", "O", 2)
           Call kombnasyon("I", "P", 2)
           
          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub


Kod: Tümünü seç
Sub kombnasyon(alan1 As String, alan2 As String, kac As Integer)

     Dim i As Integer, j As Byte, bul As Range, say As Integer

With Sheets("Sayfa1")

    If kac = 1 Then
        For i = 2 To 20
            say = 0
            For j = 1 To 10
                Set bul = .Range("A" & i & ":F" & i).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i
    ElseIf kac = 2 Then
        For i = 2 To 20
            say = 0
            For j = 1 To 10
                Set bul = Union(.Range("A" & i & ":E" & i), .Range(alan1 & i)).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i
    End If
End With

  Set bul = Nothing
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#10)  feraz » 03 May 2019 05:24

Eklediğim dosyadaki kodları alttaki ile değiştirirseniz uzun uzun call komutlarını eklemenize gerek kalmaz tabii kodda.
Yani sütun çok fazla olacaksa bunu kullanabilirsiniz.Bu arada kombinasyonuda öğrenmiş oldum sayenizde youtubeden izleyip :)

Kod: Tümünü seç
Private Sub CommandButton1_Click()

       Dim k As Integer
    Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:XFD").ClearContents
       
           Call kombnasyon(5, 13, 1) '13 M sütun ,5 ise E sütun
           For k = 14 To 16
               Call kombnasyon(k - 7, k, 2)
           Next
           
          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub



Kod: Tümünü seç
Sub kombnasyon(alan1 As Integer, alan2 As Integer, kac As Integer)

     Dim i As Integer, j As Byte, bul As Range, say As Integer

With Sheets("Sayfa1")

    If kac = 1 Then
        For i = 2 To 20
            say = 0
            For j = 1 To 10
                Set bul = .Range("A" & i & ":F" & i).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i
    ElseIf kac = 2 Then
        For i = 2 To 20
            say = 0
            For j = 1 To 10
                Set bul = Union(.Range("A" & i & ":E" & i), .Cells(i, alan1)).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i
    End If
End With

  Set bul = Nothing
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#11)  avnitoto » 03 May 2019 10:18

Feraz ustam

Olmuş gibi görünyor ama sütunlar fazla olacak

alta yazmış olduğunuz kodları ekledim ama doğru eklemişmiyim bir baksanız doğruysa bu sÜtun nasıl eklenecek pek anlamadım
Ben Vba da zayıfım.

4 sutunu doğru ama sonra sutun eklediğimde nasıl olacak

A B C D E F HÜCRELERİ BENZEŞİYORSA M YE YAZDIK TAMAM OLMUŞ BU
A B C D E G HÜCRELERİ BENZEŞİYORSA N YE YAZDIK TAMAM OLMUŞ BUDA
A B C D E H HÜCRELERİ BENZEŞİYORSA O YA YAZDIK TAMAM OLMUŞ BUDA
A B C D E I HÜCRELERİ BENZEŞİYORSA P YE YAZDIK TAMAM OLMUŞ BUDA

A B C D E J HÜCRELERİ BENZEŞİYORSA Q YA YAZACAK AMA NASIL KODUN NERESİNİ DÜZENLEMEM LAZIM Kİ 210 SÜTUNU
A B C D F G HÜCRELERİ BENZEŞİYORSA P YE YAZACAK AMA NASIL
A B C D F H HÜCRELERİ BENZEŞİYORSA R YE YAZACAK AMA NASIL DİYE DEVAM EDECEK (TOPLAMDA 210 SUTUN OLACAK)
----
----
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#12)  avnitoto » 03 May 2019 10:34

Kodu eklemeyi unutmuşum şimdi ekledim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#13)  feraz » 03 May 2019 10:46

For k = 14 To 16
Burdaki 16 yerne en son sütun numarasını yazın sadece.

Dosyaya akşama doğru bakabilirim ve aklımdaki koda göre söyledim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#14)  feraz » 03 May 2019 11:48

Acaba satır ile sütunu karıştırıyor musunuz?
Bana öyle gibi geldi.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#15)  avnitoto » 03 May 2019 13:11

Feraz ustam

For k = 14 to 16 yı anladım (16 yı şimdilik 22 yaptım ekte)

dediğini yaptım ama R sutunu olmuyor ekte tekrar gönderdim açıklama ekte


Birde merak ettim

Call kombnasyon(k - 7, k, 2) yı anlayamadım

k - 7 ne iş görüyor kodun içinde
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#16)  feraz » 03 May 2019 14:43

Bakıyorum şimdi.

K-7 demek k 14.cü sütun olduğu için k-7 de G sütunu oluyor.
Döngü tekrar çalışınca H sütununa göre işlem yapıyor sonra I sütunu.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#17)  feraz » 03 May 2019 15:14

R sütunu içinde kod ekledim açıklama var kodda.
Fakat R den sonra felan nasıl mantık kuracağım yada 10 sütunluk daha yazarsanız belki anlarım ve kodu ona göre yaparız.
HB sütununa kadar mı kod olacak :( çünkü HB 201.cu sütun.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

       Dim k As Integer
    Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:XFD").ClearContents
       
           Call kombnasyon(5, 13, 1) '13 M sütun ,5 ise E sütun
           For k = 14 To 17
               Call kombnasyon(k - 7, k, 2)
           Next
           
           Call kombnasyon(5, 18, 3) 'R sütun,burda 5 önemsiz
           
          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub


Sub kombnasyon(alan1 As Integer, alan2 As Integer, kac As Integer)

     Dim i As Integer, j As Byte, bul As Range, say As Integer

With Sheets("Sayfa1")

    If kac = 1 Then
        For i = 2 To 20
            say = 0
            For j = 1 To 10
                Set bul = .Range("A" & i & ":F" & i).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i
    ElseIf kac = 2 Then
        For i = 2 To 20
            say = 0
            For j = 1 To 10
                Set bul = Union(.Range("A" & i & ":E" & i), .Cells(i, alan1)).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i

    ElseIf kac = 3 Then
        For i = 2 To 20
   
            say = 0
            For j = 1 To 10
                Set bul = Union(.Range("A" & i & ":D" & i), .Range("F" & i & ":G" & i)).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, alan2).Value = "Sil"
                Else
                    .Cells(i, alan2).Value = "Silme"
                End If
        Next i
    End If
   
   
End With

  Set bul = Nothing
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#18)  avnitoto » 03 May 2019 16:49

EVET R SUTUNU OLMUŞ ANLAMANIZ BAKIMINDA 40 CİVARI SUTUN YAZDIM


UMARIM MANTIĞINI ANLARSINIZ (R DEN SONRA) 210 SUTUNDUR HN SUTUNA KADAR KOD UYGULANACAK

SUTUN 1 - A B C D E F HÜCRELERİ BENZEŞİYORSA M YE YAZDIK TAMAM OLMUŞ BU
SUTUN 2 - A B C D E G HÜCRELERİ BENZEŞİYORSA N YE YAZDIK TAMAM OLMUŞ BUDA
SUTUN 3 - A B C D E H HÜCRELERİ BENZEŞİYORSA O YA YAZDIK TAMAM OLMUŞ BUDA
SUTUN 4 - A B C D E I HÜCRELERİ BENZEŞİYORSA P YE YAZDIK TAMAM OLMUŞ BUDA
SUTUN 5 - A B C D E J HÜCRELERİ BENZEŞİYORSA Q YA YAZDIK TAMAM OLMUŞ BUDA
SUTUN 6 - A B C D F G HÜCRELERİ BENZEŞİYORSA R YA YAZDIK TAMAM OLMUŞ BUDA

(yukardaki M, N, O, P Q VE R SUTUNLARI TAMAM) (BEN 210 UNUDA YAZAYIM MANTIĞIN ANLARSINIZ SANIRIM)



SUTUN 7 - A B C D E J HÜCRELERİ BENZEŞİYORSA Q YA YAZACAK AMA NASIL KODUN NERESİNİ DÜZENLEMEM LAZIM
SUTUN 8 - A B C D F G HÜCRELERİ BENZEŞİYORSA P YE YAZACAK AMA NASIL
SUTUN 9 - A B C D F H HÜCRELERİ BENZEŞİYORSA R YE YAZACAK AMA NASIL DİYE DEVAM EDECEK
SUTUN 10 - A B C D F I HÜCRELERİ BENZEŞİYORSA S YE YAZACAK
SUTUN 11 - A B C D F J HÜCRELERİ BENZEŞİYORSA T YE YAZACAK
SUTUN 12 - A B C D G I HÜCRELERİ BENZEŞİYORSA U YE YAZACAK
SUTUN 13 - A B C D G J HÜCRELERİ BENZEŞİYORSA V YE YAZACAK
SUTUN 14 - A B C D H J HÜCRELERİ BENZEŞİYORSA W YE YAZACAK
SUTUN 15 - A B C D I J HÜCRELERİ BENZEŞİYORSA X YE YAZACAK
SUTUN 16 - A B C E F G HÜCRELERİ BENZEŞİYORSA Y YE YAZACAK
SUTUN 17 - A B C E F H HÜCRELERİ BENZEŞİYORSA Z YE YAZACAK
SUTUN 18 - A B C E F I HÜCRELERİ BENZEŞİYORSA AA YA YAZACAK
SUTUN 19 - A B C E F J HÜCRELERİ BENZEŞİYORSA AB YE YAZACAK
SUTUN 20 - A B C E F J HÜCRELERİ BENZEŞİYORSA AC YE YAZACAK
SUTUN 21 - A B C E G I HÜCRELERİ BENZEŞİYORSA AD YE YAZACAK
SUTUN 22 - A B C E G J HÜCRELERİ BENZEŞİYORSA AE YE YAZACAK
SUTUN 23 - A B C E I J HÜCRELERİ BENZEŞİYORSA AF YE YAZACAK
SUTUN 24 - A B C F G H HÜCRELERİ BENZEŞİYORSA AG YE YAZACAK
SUTUN 25 - A B C F G I HÜCRELERİ BENZEŞİYORSA AH YE YAZACAK
SUTUN 26 - A B C F G J HÜCRELERİ BENZEŞİYORSA Aİ YE YAZACAK
SUTUN 27 - A B C F H I HÜCRELERİ BENZEŞİYORSA AJ YE YAZACAK
SUTUN 28 - A B C F H J HÜCRELERİ BENZEŞİYORSA AK YE YAZACAK
SUTUN 29 - A B C F I J HÜCRELERİ BENZEŞİYORSA AL YE YAZACAK
SUTUN 30 - A B C G H I HÜCRELERİ BENZEŞİYORSA AL YE YAZACAK
SUTUN 31 - A B C G H J HÜCRELERİ BENZEŞİYORSA AM YE YAZACAK
SUTUN 32 - A B C G I J HÜCRELERİ BENZEŞİYORSA AN YE YAZACAK
SUTUN 33 - A B C H I J HÜCRELERİ BENZEŞİYORSA AO YE YAZACAK
SUTUN 34 - A B D E F G HÜCRELERİ BENZEŞİYORSA AP YE YAZACAK
SUTUN 35 - A B D E F H HÜCRELERİ BENZEŞİYORSA AQ YE YAZACAK
SUTUN 36 - A B D E F I HÜCRELERİ BENZEŞİYORSA AR YE YAZACAK
SUTUN 37 - A B D E F J HÜCRELERİ BENZEŞİYORSA AS YE YAZACAK
SUTUN 38 - A B D E G H HÜCRELERİ BENZEŞİYORSA AT YE YAZACAK
SUTUN 39 - A B D E G I HÜCRELERİ BENZEŞİYORSA AU YE YAZACAK
SUTUN 40 - A B D E G J HÜCRELERİ BENZEŞİYORSA AV YE YAZACAK
SUTUN 41 - A B D E H I HÜCRELERİ BENZEŞİYORSA AW YE YAZACAK
SUTUN 42 - A B D E H J HÜCRELERİ BENZEŞİYORSA AX YE YAZACAK

-----
-----
AÇIKLAMA

43 SUTUN AÇIKLAMASI --(42. SUTUN BAZ ALINACAK) ENSON J OLMUŞ BİR ÖNCEKİ H DEN SONRAKİ İ GELECEK
YANI SUTUN 43 A B D E I J OLACAK

44 SUTUN AÇIKLAMASI-- (43 SUTUN BAZ ALINACAK I VE J SONA GELMİŞ O ZAMAN SONDAN 3.HARFTEN SONRAKİ HARF GELECEK
YANE 44 SUTUN A B D F G H OLACAK

45 SUTUN AÇIKLAMASI --(44 SUTUN BAZ ALINACAK) EN SON HARF BİR SONRAKİ HARF OLACAK YANE
45 SUTUN A B D F G I OLACAK
----
----

210 UNCU SUTUN E F G H I J OLACAK (EN SON SUTUN)

UMARIM ANLATABİLDİM

HN SUTUNUNA KADAR KOD OLACAK
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#19)  feraz » 03 May 2019 18:54

Merhaba sanırım mantığı anladım 2 sorum olacak.
1-
SUTUN 7 - A B C D E J HÜCRELERİ BENZEŞİYORSA Q YA YAZACAK AMA NASIL KODUN NERESİNİ DÜZENLEMEM LAZIM
SUTUN 8 - A B C D F G HÜCRELERİ BENZEŞİYORSA P YE YAZACAK AMA NASIL
SUTUN 9 - A B C D F H HÜCRELERİ BENZEŞİYORSA R YE YAZACAK AMA NASIL DİYE DEVAM EDECEK
Önceden Q,P ve R sütunlarını yapmıştık neden bir daha yazdınız?

2-
SUTUN 19 - A B C E F J HÜCRELERİ BENZEŞİYORSA AB YE YAZACAK
SUTUN 20 - A B C E F J HÜCRELERİ BENZEŞİYORSA AC YE YAZACAK
Burda sanırım yanlışlık yapmışsınız.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Diğer Sayfalarla Karşılaştırsın İlk Satırı

İleti#20)  avnitoto » 03 May 2019 19:24

Yaptıkların tamam R den sonrasını devam edin

Evet 19 ve 20 de yanlışlık olmuş
Anlamışsınız
Kullanıcı avatarı
avnitoto
Yeni Başlamış
 
Kayıt: 19 Şub 2019 09:31
Meslek: bilgisayar
Yaş: 56
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kmaraş

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 0 misafir

Bumerang - Yazarkafe