[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.

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

İleti#21)  feraz » 03 May 2019 20:05

Üstad olayı anladım fakat daha kısa kod nasıl yazılır bilemiyorum.
Tam sizin anlayacağınıza göre kodu düzenledim.

Call kombnasyon("A;B;C;D;F;G", "R") mesela burda A;B;C;D;F;G olanlar aranacak sütunlar,R ise kaydedilecek sütunlardır.
Bu şekilde HN sütununa kadar koda ekleme yapınız.Yani Call kombnasyon() bunun içine yukarıda anlattığım gibi yapın kodu incelerseniz zaten anlarsınız.Başka birşey yapmanız gerek yok son satırıda buldurup koda ekledim yani A sütununun son dolu satırına kadarişlem yapar.

Bir deneyip yazarsınız.

Kod: Tümünü seç
Sub Araaa()

       Dim k As Integer
       Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:XFD").ClearContents
       
           Call kombnasyon("A;B;C;D;E;F", "M") ' "A;B;C;D;E;F"=aranacak alan -----M ise kaydedilecek yer
           Call kombnasyon("A;B;C;D;E;G", "N")
           Call kombnasyon("A;B;C;D;E;H", "O")
           Call kombnasyon("A;B;C;D;E;I", "P")
           Call kombnasyon("A;B;C;D;E;J", "Q")
           Call kombnasyon("A;B;C;D;F;G", "R")
        'Buradan devam edin


          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub



Kod: Tümünü seç
Sub kombnasyon(aranacakYerler, hngstnkaydet As String)

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

With Sheets("Sayfa1")

        For i = 2 To .Cells(Rows.Count, 1).End(3).Row
            say = 0
            For j = 1 To 10
                Set bul = Union(.Cells(i, Split(aranacakYerler, ";")(0)), _
                                .Cells(i, Split(aranacakYerler, ";")(1)), _
                                .Cells(i, Split(aranacakYerler, ";")(2)), _
                                .Cells(i, Split(aranacakYerler, ";")(3)), _
                                .Cells(i, Split(aranacakYerler, ";")(4)), _
                                .Cells(i, Split(aranacakYerler, ";")(5))).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, hngstnkaydet).Value = "Sil"
                Else
                    .Cells(i, hngstnkaydet).Value = "Silme"
                End If
        Next i
   
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: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#22)  feraz » 03 May 2019 20:56

Aslında başka bir sayfaya mesela A sütununa aranacak sütunlar, b sütununada sil yada silme sütunu yapılsa kod ile döngüyle daha basit olur.
Yada kod ile arama yapılacak sütunları kombinasyon olarak başka sayfanın sütununa otomatik kaydedilipte yapılabilir benim son verdiğim koda onca call gibi eklemek yerine.

Biraz denerim olursa onuda paylaşırım tabii zor benim için.Geçen bir kod bulmuştum kombinasyon ile ilgili uyarsa denerim zaman bulunca.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#23)  avnitoto » 03 May 2019 21:15

Teşekkürler feraz ustam
Mobilde bakiyorum yarın denerim
PC de size bilgi veririm
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#24)  feraz » 03 May 2019 21:24

Rica ederim önceki dediğim otomatik kombanisyon olayını yapamadım.
Onun yerine sayfa2 adında sayfa ekledim ve sadece ordaki A ve B sütunlarına veri girip kodu çalıştırın.
Kod ile uğraşmayın bence en iyici böyle.

Resim sayfa2 ye ait verileri doğru girerseniz istediğiniz olur.

Kod: Tümünü seç
Sub Araaa()

       Dim k As Integer
       Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:XFD").ClearContents
       
        With Sheets("Sayfa2")
            For k = 2 To .Cells(Rows.Count, 1).End(3).Row
                Call kombnasyon(.Cells(k, 1).Value, .Cells(k, 2).Value)
            Next
        End With

          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub



Kod: Tümünü seç
Sub kombnasyon(aranacakYerler As String, hngstnkaydet As String)

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

With Sheets("Sayfa1")

        For i = 2 To .Cells(Rows.Count, 1).End(3).Row
            say = 0
            For j = 1 To 10
                Set bul = Union(.Cells(i, Split(aranacakYerler, ";")(0)), _
                                .Cells(i, Split(aranacakYerler, ";")(1)), _
                                .Cells(i, Split(aranacakYerler, ";")(2)), _
                                .Cells(i, Split(aranacakYerler, ";")(3)), _
                                .Cells(i, Split(aranacakYerler, ";")(4)), _
                                .Cells(i, Split(aranacakYerler, ";")(5))).Find(.Cells(1, j).Value, , , 1)
                If Not bul Is Nothing Then say = say + 1
            Next j
   
                If say >= 6 Then
                    .Cells(i, hngstnkaydet).Value = "Sil"
                Else
                    .Cells(i, hngstnkaydet).Value = "Silme"
                End If
        Next i
   
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: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

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

İleti#25)  avnitoto » 04 May 2019 08:36

Günaydın Feraz Ustam

Çok güzel olmuş ama bir problem var ekte

Onuda çözerseniz hiç bir problem kalmadı

Teşekürler
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#26)  feraz » 04 May 2019 11:56

Merhaba üstadım.
Dosyayı inceledim bitirince eklerim dosyayı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
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#27)  feraz » 04 May 2019 12:48

Abey kodları biraz değiştirdim.

Açıklama;

Kod şöyle çalışıyor bulmak için;
------------------------------------------------------------------
Mesela G20.ci satırı ele alalım.
N sütunu için kod çalışınca;
A20 için döngü başlıyor ve A1:J1 aralığında A20 deki veri aranıyor.
B20 için döngü başlıyor ve A1:J1 aralığında B20 deki veri aranıyor.
C20 için döngü başlıyor ve A1:J1 aralığında C20 deki veri aranıyor.
D20 için döngü başlıyor ve A1:J1 aralığında D20 deki veri aranıyor.
E20 için döngü başlıyor ve A1:J1 aralığında E20 deki veri aranıyor.
G20 için döngü başlıyor ve A1:J1 aralığında G20 deki veri aranıyor.

Eğer A20:E20 ve G20 arasındaki verilerden birisi yoksa A1:J1 aralığında N sütununa silme varsa sil yazılıyor.
Yani ben böyle anladım.Hata oluyorsa bu mantıkta oluyordur.
--------------------------------------------------------------------------------------------
Kod: Tümünü seç
Sub Araaa()

       Dim k As Integer
       Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:HN").ClearContents
       
        With Sheets("Sayfa2")
            For k = 2 To .Cells(Rows.Count, 1).End(3).Row
                Call kombnasyon(.Cells(k, 1).Value, .Cells(k, 2).Value)
            Next
        End With

          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub



Kod: Tümünü seç
Sub kombnasyon(aranacakYerler As String, hngstnkaydet As String)

     Dim i As Integer, bul As Range, bul1 As Range, var As Boolean

    With Sheets("Sayfa1")
    var = True
            For i = 2 To .Cells(Rows.Count, 1).End(3).Row
   
                      For Each bul1 In Union(.Cells(i, Split(aranacakYerler, ";")(0)), _
                                    .Cells(i, Split(aranacakYerler, ";")(1)), _
                                    .Cells(i, Split(aranacakYerler, ";")(2)), _
                                    .Cells(i, Split(aranacakYerler, ";")(3)), _
                                    .Cells(i, Split(aranacakYerler, ";")(4)), _
                                    .Cells(i, Split(aranacakYerler, ";")(5)))
                                   
                                If WorksheetFunction.CountIf(.Range("A1:J1"), bul1.Value) = 0 Then
                                      var = False
                                      Exit For
                                 End If
                      Next bul1
   
       
                    If var = True Then
                        .Cells(i, hngstnkaydet).Value = "Sil"
                    Else
                        .Cells(i, hngstnkaydet).Value = "Silme"
                    End If
                    var = True
            Next i
       
    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: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#28)  feraz » 04 May 2019 13:00

Yada örnek olarak mesela A1 ile A20,B1 ile B20,C1 ile C20,D1 ile D20,E1 ile E20 ve G1 ile G20 mi karşılaştırılacak?

Yani A1 =5 A20 =5 , B1 =3 B20 =68 ise sonuç olarak silme mi yazılacak?
Yani A1 =5 A20 =5 , B1 =3 B20 =3 ise sonuç olarak sil mi yazılacak?
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#29)  avnitoto » 04 May 2019 13:59

Yada örnek olarak mesela A1 ile A20,B1 ile B20,C1 ile C20,D1 ile D20,E1 ile E20 ve G1 ile G20 mi karşılaştırılacak? EVET

Yani A1 =5 A20 =5 , B1 =3 B20 =68 ise sonuç olarak silme mi yazılacak? EVET SILME YAZACAK
Yani A1 =5 A20 =5 , B1 =3 B20 =3 ise sonuç olarak sil mi yazılacak? EVET


Evet öyle olacak

Ben başta anlatayım mantığı

SATIR 1 VE 2 Yİ KARŞILAŞTIRALIM

(BURADA ÖNEMLİ KURAL SARI RENKTEKİ BİRİNCİ SATIRLA HEPSİ KARŞILAŞTIRILACAK YANE 1 VE 2 SATIR,1 VE 3 SATIR, 1 VE 4 SATIR......1 VE 20 SATIR )

A1 İLE A2 İ , B1 İLE B2 Yİ, C1 İLE C2 Yİ, D1 İLE D2 Yİ, E1 İLE E2, F1 İLE F2 Yİ KARŞILAŞTIRACAK

A1=1 A2=1, B1=44 B2=2, C1=3 C2=3 D1=4 D2=4, E1=33 E2=33, F1=56 F2=56 İSE ( SILME YAZACAK ÇÜNKÜ B1=44 B2=2 B1 VE B2 FARKLI)

BİR ÖRNEK DAHA

MESELA 1. SATIR VE 20. SATIR OLSUN

A1 İLE A20 Yİ , B1 İLE B20 Yİ, C1 İLE C20 Yİ, D1 İLE D20 Yİ, E1 İLE E20, F1 İLE F20 Yİ KARŞILAŞTIRACAK

A1=1 A20=1, B1=2 B20=2, C1=3 C20=3 D1=4 D20=4, E1=33 E20=33, F1=56 F20=56 İSE ( SIL YAZACAK ÇÜNKÜ

A1=1 A20=1, B1=2 B20=2, C1=3 C20=3, D1=4 D20=4, E1=33 E20=33, F1=56 F20=56

SİZDE ZATEN ANLAMIŞSINIZ

YİNE SON YAPTIĞINIZ 7 NOLU DOSYAYI EKTE GÖNDERİYORUM
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#30)  feraz » 04 May 2019 14:18

Tamam üstadım şimdi tam anlaşıldı arama olayı.
Kodda ufak bir değişiklik yaparak sorun çözülür.
Müsait olduğumda bugün yaparım.
Yaklaşık kaç satırlık olacak.
Hız için soruyorum.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#31)  avnitoto » 04 May 2019 15:11

Tamam Sağol
Ne kadar hızlı olursa o kadar iyi
10000 ler belki
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#32)  feraz » 04 May 2019 17:06

Sanırım şimdi alles okey :)
Doğruysa sonuç kodu biraz değiştireceğim.

Kod: Tümünü seç
Sub Araaa()

       Dim k As Integer
       Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:HN").ClearContents
       
        With Sheets("Sayfa2")
            For k = 2 To .Cells(Rows.Count, 1).End(3).Row
                Call kombnasyon(.Cells(k, 1).Value, .Cells(k, 2).Value)
            Next
        End With

          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub


Kod: Tümünü seç

Sub kombnasyon(aranacakYerler As String, hngstnkaydet As String)

     Dim i As Integer

  Application.ScreenUpdating = False
    With Sheets("Sayfa1")
 
            For i = 2 To .Cells(Rows.Count, 1).End(3).Row
                If .Cells(1, Split(aranacakYerler, ";")(0)).Value = .Cells(i, Split(aranacakYerler, ";")(0)).Value And _
                   .Cells(1, Split(aranacakYerler, ";")(1)).Value = .Cells(i, Split(aranacakYerler, ";")(1)).Value And _
                   .Cells(1, Split(aranacakYerler, ";")(2)).Value = .Cells(i, Split(aranacakYerler, ";")(2)).Value And _
                   .Cells(1, Split(aranacakYerler, ";")(3)).Value = .Cells(i, Split(aranacakYerler, ";")(3)).Value And _
                   .Cells(1, Split(aranacakYerler, ";")(4)).Value = .Cells(i, Split(aranacakYerler, ";")(4)).Value And _
                   .Cells(1, Split(aranacakYerler, ";")(5)).Value = .Cells(i, Split(aranacakYerler, ";")(5)).Value Then
                   .Cells(i, hngstnkaydet).Value = "Sil"
                Else
                   .Cells(i, hngstnkaydet).Value = "Silme"
                End If
            Next i
       
    End With
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: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#33)  avnitoto » 04 May 2019 17:43

Mobilden bakıyorum son gönderdiğiniz kod son bitmiş halimi yarın bakacağım
Teşekkürler
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#34)  feraz » 04 May 2019 17:52

Sonra bir kod daha ekleyeceğim hız için aynı mantıkla.
Normalde bitmiş hali denemeniz lazım doğruluğu için.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#35)  feraz » 04 May 2019 20:22

Doğruysa sonuç en hızlısı böyle yaptım denersiniz ve reimede bakabilirsiniz.
Statusbar dada Bekleyin kod devam ediyor... olarak yazı eklettim.
10 bin satırlık denedim çok hızlı çalıştı.Umarım bukez mutlu sona ulaşmışızdır :)

Kod: Tümünü seç
Sub Araaa()

       Dim k As Integer
       Application.ScreenUpdating = False
        Sheets("Sayfa1").Range("M:HN").ClearContents
       
        With Sheets("Sayfa2")
            For k = 2 To .Cells(Rows.Count, 1).End(3).Row
                Call kombnasyon(.Cells(k, 1).Value, .Cells(k, 2).Value)
            Next
        End With

          MsgBox "Bitti", vbInformation, "Bilgi"
    Application.ScreenUpdating = True
End Sub



Kod: Tümünü seç
Sub kombnasyon(aranacakYerler As String, hngstnkaydet As String)

    Dim i As Integer, ii As Integer, iii As Integer, arr1(), arr2(), son As Integer, arr3, a As String
   
    Application.StatusBar = "Bekleyin kod devam ediyor..."
    Application.ScreenUpdating = False
   
    With Sheets("Sayfa1")
   
        son = .Cells(Rows.Count, 1).End(3).Row
        arr2 = .Range("A1:J" & son).Value
        arr3 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
       
        For ii = LBound(arr3) To UBound(arr3)
            For iii = 0 To 5
                If Split(aranacakYerler, ";")(iii) = arr3(ii) Then
                    a = a & ii + 1 & ","
                End If
            Next
        Next
       
        For i = 2 To son
           
            ReDim Preserve arr1(i - 1)
           
            If arr2(i, Split(a, ",")(0)) & "|" & _
                arr2(i, Split(a, ",")(1)) & "|" & _
                arr2(i, Split(a, ",")(2)) & "|" & _
                arr2(i, Split(a, ",")(3)) & "|" & _
                arr2(i, Split(a, ",")(4)) & "|" & _
                arr2(i, Split(a, ",")(5)) = arr2(1, Split(a, ",")(0)) & "|" & _
                                            arr2(1, Split(a, ",")(1)) & "|" & _
                                            arr2(1, Split(a, ",")(2)) & "|" & _
                                            arr2(1, Split(a, ",")(3)) & "|" & _
                                            arr2(1, Split(a, ",")(4)) & "|" & _
                                            arr2(1, Split(a, ",")(5)) Then
               
                  arr1(i - 2) = "Sil"
             Else
                 arr1(i - 2) = "Silme"
             End If
        Next i
        .Range(hngstnkaydet & 2).Resize(i - 2, 1).Value = Application.Transpose(arr1)
   
    End With
    Application.ScreenUpdating = True
   
    Erase arr1: Erase arr2: Erase arr3: i = Empty: ii = Empty: iii = Empty: son = EmptyÇa = vbNullString
   
    Application.StatusBar = ""
   
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: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#36)  avnitoto » 04 May 2019 21:16

Yarın deneyeceğim çok teşekkürler
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#37)  feraz » 04 May 2019 21:43

Rica ederim.
Kodlara mobilden bakarken birşey farkettim alttaki koddaki 1 yerine 2 gelmeliydi.Sorun olmaz fakat yinede değiştirirseniz iyi olur eğer sonuç doğruysa.

ReDim Preserve arr1(i - 1)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#38)  avnitoto » 05 May 2019 13:55

HER ŞEYDEN ÖNCE ZEKANA SAĞLIK
TEŞEKÜRLER ÇOK GÜZEL OLMUŞ
AYNI DEDİĞİM GİBİ
(ÇÖZÜLDÜ OLARAK NEREYE YAZACAĞIMI BULAMADIM)

ÇOK SAĞOL
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#39)  feraz » 05 May 2019 14:47

Rica ederim.Çözüldü olarak yöneticiler değiştirebiliyor sadece.
Kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#40)  feraz » 05 May 2019 15:29

Kodları tekrar incelerken belki hata varmı diye gözüme bura çarptı Ça = vbNullString
Ordaki Ç yerine : olacaktı. Düzeltirsiniz üstadım.Ve önceki mesajda yazdığım 1 yerine 2 yide değiştirebilirsiniz denedim sorun olmadı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

ÖncekiSonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe