B12 Boşsa koşulu karşılamıyor

Akif59 · 19 May 2020

1 NOLU Kod B12 Doluysa olduğu gibi kalaçak B12 boşsa 2 nolu kod gibi işlem yapacak şekilde düzenlenebilir mi

1- nolu kod

Kod:

For beden = 4 To 113
            If s1.Cells(droplu, beden) <> "" Then
                yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
                s2.Cells(yeni, "A") = "q:" & s1.Cells(droplu, beden)
             s2.Cells(yeni + 1, "A") = "s:" & Left(s1.Cells(12, beden), 2) & s1.[B12]
                If s1.[B12] = "" Then
                    s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & ""
                Else
                    s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & Right(s1.Cells(12, beden), 2)
                End If

2- nolu kod

Kod:

For beden = 4 To 113
            If s1.Cells(droplu, beden) <> "" Then
                yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
                s2.Cells(yeni, "A") = "q:" & s1.Cells(droplu, beden)
                s2.Cells(yeni + 1, "A") = "s:" & s1.Cells(12, beden)
            End If

Ömer BARAN · 19 May 2020

For...Next döngüsünü aşağıdaki gibi kurarak dener misiniz?

VBA:

For beden = 4 To 113
    If S1.Cells(droplu, beden) <> "" Then
        yeni = S2.Cells(Rows.Count, "A").End(3).Row + 1
        S2.Cells(yeni, "A") = "q:" & S1.Cells(droplu, beden)
        S2.Cells(yeni + 1, "A") = "s:" & Left(S1.Cells(12, beden), 2) & S1.[B12]
        If S1.[B12] <> "" Then S2.Cells(yeni + 1, "A") = S2.Cells(yeni + 1, "A") & Right(S1.Cells(12, beden), 2)
        If S1.[B12] = "" Then S2.Cells(yeni + 1, "A") = "s:" & S1.Cells(12, beden)
    End If
Next

.

Akif59 · 19 May 2020

Teşekkür Ederim Sayın BARAN çalıştı muhteşemsiniz

Akif59 · 20 May 2020

Ömer BARAN' Alıntı:

For...Next döngüsünü aşağıdaki gibi kurarak dener misiniz?

VBA:

For beden = 4 To 113
    If S1.Cells(droplu, beden) <> "" Then
        yeni = S2.Cells(Rows.Count, "A").End(3).Row + 1
        S2.Cells(yeni, "A") = "q:" & S1.Cells(droplu, beden)
        S2.Cells(yeni + 1, "A") = "s:" & Left(S1.Cells(12, beden), 2) & S1.[B12]
        If S1.[B12] <> "" Then S2.Cells(yeni + 1, "A") = S2.Cells(yeni + 1, "A") & Right(S1.Cells(12, beden), 2)
        If S1.[B12] = "" Then S2.Cells(yeni + 1, "A") = "s:" & S1.Cells(12, beden)
    End If
Next

.

Merhaba sayın BARAN
Dün düzenlediğiniz bu kod B12 doluysa soldan ve sağdan 2. karakterin arasına B 12 değerini koyuyor
Biz bunu kaçıncı karakterden sonra koyması gerektiğini sabit değilde değişken yapabilir miyiz belki kızacaksınız bana ama her şey bir anda aklıma gelmiyor affedersiniz

Ömer BARAN · 20 May 2020

AFlık bir mevzu yok.
Elbette, makro kodlarla yapılabilecekleri gördükçe yeni fikirler, ilave düzenleme istekleri gelecektir.
Cevap yazarken, kodun ne işlem yaptığıyla hiç ilgilenmedim.
Yaptığım şey döngü ve koşulu düzenlemekten ibaret idi.

Kulandığınız kodların içinde olduğu, mümkünse çok büyük veri yığını içermeyecek şekilde,
gerçek belgenizin özel bilgi içermeyen bir kopyasını ekleyip, olması gereken durumu örneklendirirseniz çözüme ulaşmak kolaylaşır.

.

Akif59 · 20 May 2020

Merhaba sayın BARAN
Dün düzenlediğiniz kod sayfa 1 de sipariş hazırla butonu ile çalışıyor B12 doluysa 12 Satırdaki değerlerin soldan ve sağdan 2. karakterin arasına B 12 değerini koyuyor sayfa 2 de A Sütununda sıralıyor

Biz bunu kaçıncı karakterden sonra koyması gerektiğini sabit değilde değişken yapabilir miyiz

Melasa B13 de kaçıncı karakterden sonra B12 değerini eklemesini söyleye bilir miyiz

B12 boşsa olduğu gibi kalacak sayfa 2 A sütunda sıralayacak doğrusu o

Ömer BARAN · 20 May 2020

Anladığm kadarıyla aşağıdaki iki kod satırında;
kırmızı renklendirdiğim sayıların, sayfadaki bir hücreden alınıp alınmayacağını soruyorsunuz.

Eğer istediğiniz bu ise; 2 sayılarının yerine; S1.Range("A1") veya S1.[K10] gibi sayfa ve hücre adresini vererek
başka SAYISAL veriyi kullanmanız mümkündür.

VBA:

[SIZE=12px]    s2.Cells(yeni + 1, "A") = "s:" & [B][COLOR=rgb(36, 82, 105)]Left([/COLOR][/B]S1.Cells(12, beden), [/SIZE][SIZE=15px][B][COLOR=rgb(132, 53, 52)]2[/COLOR][/B][/SIZE][SIZE=12px][B][COLOR=rgb(36, 82, 105)])[/COLOR][/B] & S1.[B12]
    If S1.[B12] <> "" Then s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & [B][COLOR=rgb(36, 82, 105)]Right([/COLOR][/B]S1.Cells(12, beden), [/SIZE][SIZE=15px][B][COLOR=rgb(132, 53, 52)]2[/COLOR][/B][/SIZE][SIZE=12px][B][COLOR=rgb(36, 82, 105)])[/COLOR][/B][/SIZE]

.

Akif59 · 20 May 2020

Ömer BARAN' Alıntı:
Anladığm kadarıyla aşağıdaki iki kod satırında;
kırmızı renklendirdiğim sayıların, sayfadaki bir hücreden alınıp alınmayacağını soruyorsunuz.

Eğer istediğiniz bu ise; 2 sayılarının yerine; S1.Range("A1") veya S1.[K10] gibi sayfa ve hücre adresini vererek
başka SAYISAL veriyi kullanmanız mümkündür.

VBA:

[SIZE=3] s2.Cells(yeni + 1, "A") = "s:" & [B][COLOR=rgb(36, 82, 105)]Left([/COLOR][/B]S1.Cells(12, beden), [/SIZE][SIZE=4][B][COLOR=rgb(132, 53, 52)]2[/COLOR][/B][/SIZE][SIZE=3][B][COLOR=rgb(36, 82, 105)])[/COLOR][/B] & S1.[B12] If S1.[B12] <> "" Then s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & [B][COLOR=rgb(36, 82, 105)]Right([/COLOR][/B]S1.Cells(12, beden), [/SIZE][SIZE=4][B][COLOR=rgb(132, 53, 52)]2[/COLOR][/B][/SIZE][SIZE=3][B][COLOR=rgb(36, 82, 105)])[/COLOR][/B][/SIZE]

.

Sayın BARAN merhaba
her iki değerinde hücreden aldırma doğru istediğim tam bu lakin

12 nolu satırdaki değerlerin bir standardı yok 3 karakter 4 karakter 5 karakter olan var
SEÇENEK BİR XXS 30 XS 30, S 30, M 30, L 30, XL 30 böyle bir seçenekte son iki karekter sıtandar olduğu için Right son iki karekterden önce B12 değerini koy diyorum koyuyor fakat solda kalanları getirmiyor Left den komut vermiyorum sıdandardı yok klanların hepsini getirmesi lazım

SECEMEK İKİ 23 XSS, 24 XS , 25 S, 26 M 27 L, 28 XL, 29 XXL böyle bir seçenekte İLK iki karekter sıtandar olduğu için Left İLK iki karekterden sonra B12 değerini koy diyorum koyuyor fakat sağda kalanları getirmiyor Right dan komut vermiyorum sıdandartı yok klanların hepsini getirmesi lazım

yani _ B12 Komutunu sağdan iki karakterden önce koy dersem solda kalanların hepsini getirmesi B12 değerinin önüne getirmesi lazım
_B12 Komutunu soldan iki karekterden sonra koy dersem sağda kalanların hepsini B12 değerinin arkasına getirmesi lazım

Ömer BARAN · 20 May 2020

İnanın, yapılmak istenileni anlamadım.

Eklenecek verilerin bir listesi mi vardır?
B12'nin sağına ve soluna birşeyler eklemek istiyorsanız birşeyler elbette yapılabilir.
AccuMark Explorer sayfası A sütunundaki verilerin bir anlamı/işlevi var sanırım ama malum belge sizin,
işlemi siz biliyorsunuz.

Kaç karakter mevzuunu bırakıp, nihai olarak varmak istediğinizi tarif edin bence.

.

Akif59 · 21 May 2020

Akif59' Alıntı:
Sayın BARAN merhaba
her iki değerinde hücreden aldırma doğru istediğim tam bu lakin

12 nolu satırdaki değerlerin bir standardı yok 3 karakter 4 karakter 5 karakter olan var
SEÇENEK BİR XXS 30 XS 30, S 30, M 30, L 30, XL 30 böyle bir seçenekte son iki karekter sıtandar olduğu için Right son iki karekterden önce B12 değerini koy diyorum koyuyor fakat solda kalanları getirmiyor Left den komut vermiyorum sıdandardı yok klanların hepsini getirmesi lazım

SECEMEK İKİ 23 XSS, 24 XS , 25 S, 26 M 27 L, 28 XL, 29 XXL böyle bir seçenekte İLK iki karekter sıtandar olduğu için Left İLK iki karekterden sonra B12 değerini koy diyorum koyuyor fakat sağda kalanları getirmiyor Right dan komut vermiyorum sıdandartı yok klanların hepsini getirmesi lazım

yani _ B12 Komutunu sağdan iki karakterden önce koy dersem solda kalanların hepsini getirmesi B12 değerinin önüne getirmesi lazım
_B12 Komutunu soldan iki karekterden sonra koy dersem sağda kalanların hepsini B12 değerinin arkasına getirmesi lazım

Merhaba Sayın BARAN
Kod 12 nolu satırdaki verilerin arasına B12 hücresindeki değeri (x) koyuyor

12 nolu satıra günde yaklaşık 100 üstünde siparişe ait farlı beden giriyorum günlük yaklaşık 100 seçenek demek bu
aynı anda girilen değerlerin bazıları 3 haneli bazıları 4 haneli bazıları 5 haneli olabiliyor ama mutlaka ya son iki hanesi yada ilk iki hanesi aynı olabiliyor

İşte burada araya B12 yi sağdan mı soldan mı ekleteceğiz karar veriyorum

XXS 30 XS 30, S 30, M 30, L 30, XL 30
aynı olan karakterler sonda ise sağdan iki karakterlerden önce B12 ekle diyorum 30 lardan önce B12 ekliyor
soldal kalan xxs xs s m l xl getirmiyor

hatalı olan

olması gereken
xxs x 30
xs x 30
s x 30
m x 30
l x 30
xl x 30

Akif59 · 21 May 2020

Günaydın Sayın BARAN
çözülemeyeceğinden değil ifade edemediğimden dolayı anlaşılmadığını düşünerek son önerinizi uyguladığım dosya ektedir
sizden ricam b12 yi soldan ekle b12 yi sağdan ekle seçenekleri değiştirip butonu çalıştırdığınızda sayfa 2 A da oluşan verileri gözlemlemeniz

sağdan ekleyince eklenen x İfadesinin sol tarafı boş kalıyor
Soldan ekleyince eklenen x ifadesinin sağ tarafı boş kalıyor sorun bu

Ömer BARAN · 21 May 2020

Kusura bakmayın Akif Bey.
İsteğinizin ne olduğunu hakikaten tam olarak anlamış değilim.
Şu olmuyor, bu gelmiyor değil de, mevcut kod ve kodun yaptığı işlemi bir kenara bırakıp, olması gerekeni tarif etseniz keşke.

Hangi durumda neyin olması gerekiyor onu anlamış değilim.
Hücreye yazdığınız sağdan/soldan alınacak karakter sayılarının yerine örneğin;
bir kısmı alınacak olan verinin KARAKTER SAYISI, ya da bu verinin tümünün SAYI ya da HARF olması, verinin hem SAYI hem HARF içermesi
gibi bir ÖLÇÜT varsa onu mu belirtseniz acaba?

.

Akif59 · 21 May 2020

Ömer BARAN' Alıntı:
Kusura bakmayın Akif Bey.
İsteğinizin ne olduğunu hakikaten tam olarak anlamış değilim.
Şu olmuyor, bu gelmiyor değil de, mevcut kod ve kodun yaptığı işlemi bir kenara bırakıp, olması gerekeni tarif etseniz keşke.

Hangi durumda neyin olması gerekiyor onu anlamış değilim.
Hücreye yazdığınız sağdan/soldan alınacak karakter sayılarının yerine örneğin;
bir kısmı alınacak olan verinin KARAKTER SAYISI, ya da bu verinin tümünün SAYI ya da HARF olması, verinin hem SAYI hem HARF içermesi
gibi bir ÖLÇÜT varsa onu mu belirtseniz acaba?

.

Merhaba Sayın BARAN
yapılmak istenen B12 hücresindeki değeri 12 nolu satırdaki değerlerin arasına soldan hane sayarak mı yoksa sağdan hane sayarak mı araya ekleyecek mevzusu idi
boş verin aynı konu üzerinde çok fazla vaktinizi aldım başka bir şekilde bakı caz bir çaresine yinede çok ama çok teşekkür ederim

Ömer BARAN · 21 May 2020

Kuralı/kuralları yazmıyorsunuz.
Soldan/sağdan karakter sayısını değiştirebilir miyiz/hücreden alabilir miyiz dediniz ve onun cevabını verdim ve uyguladınız.
Bu SAYI değişken olmalı diyorsunuz ama neye göre değişeceğini, bu sayının/sayıların nasıl tespit edileceğine dair bir şey yazmıyorsunuz.

El attığım bir mevzunun yarım kalmasını pek hazzetmiyorum doğrusu.
Kuralı/kuralları belirtirseniz çözüm için destek olacağımı bilmenizi isterim.

.

Akif59 · 21 May 2020

Ömer BARAN' Alıntı:
Kuralı/kuralları yazmıyorsunuz.
Soldan/sağdan karakter sayısını değiştirebilir miyiz/hücreden alabilir miyiz dediniz ve onun cevabını verdim ve uyguladınız.
Bu SAYI değişken olmalı diyorsunuz ama neye göre değişeceğini, bu sayının/sayıların nasıl tespit edileceğine dair bir şey yazmıyorsunuz.

El attığım bir mevzunun yarım kalmasını pek hazzetmiyorum doğrusu.
Kuralı/kuralları belirtirseniz çözüm için destek olacağımı bilmenizi isterim.

.

Sizide anlıyorum Sayın BARAN
Derdimi anlatamayınca bende size karşı mahcup oluyorum son düzenlediniz kodla ilerliyorum kısmen işimi görüyor

yapılmak istenen B12 doluysa B12 hücresindeki değeri 12 nolu satırdaki değerlerin arasına soldan hane sayarak mı yoksa sağdan hane sayarak mı araya ekleyecek

sağdan 2 hane saydırarak ekletir sem solda kalan haneleri getirmiyor soldan 2 hane saydırarak ekletir semde sağda kalan haneleri getirmiyor
aynı anda hem sağsan hane say hem soldan hane say B12 Ekle diyemiyorum

Son eklediğim dosyadaki sonuç
Olmsı gereken sağdan 2 hane sayarak ekle dediğimde oluşan soldan 2 hane sayarak ekle dediğim dede tam tersini yapıyor

Kod:

        For beden = 4 To 113
       If S1.Cells(Plan, beden) <> "" Then
        yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
        s2.Cells(yeni, "A") = "q:" & S1.Cells(Plan, beden)
        s2.Cells(yeni + 1, "A") = "s:" & Left(S1.Cells(12, beden), S1.[B14]) & S1.[B12]
        If S1.[B12] <> "" Then s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & Right(S1.Cells(12, beden), S1.[B16])
        If S1.[B12] = "" Then s2.Cells(yeni + 1, "A") = "s:" & S1.Cells(12, beden)
       End If
     Next
  End If
Next

Ömer BARAN · 21 May 2020

Aynı veriler üzerinden, AccuMark Explorer sayfasında oluşan her verinin yanındaki hücreye
olması gerekeni elle yazarak ekran görüntüsünü iletir misiniz?

Akif59 · 21 May 2020

Ömer BARAN' Alıntı:
Aynı veriler üzerinden, AccuMark Explorer sayfasında oluşan her verinin yanındaki hücreye
olması gerekeni elle yazarak ekran görüntüsünü iletir misiniz?

son eklediğim dosyada 3 koşul da oluşacak görseller
Sayın BARAN

Akif59 · 22 May 2020

Akif59' Alıntı:
son eklediğim dosyada 3 koşul da oluşacak görseller
Sayın BARAN

Merhaba Sayın BARAN
En son ekran görüntüsü istemiştiniz bir çözüm üretebiliyor muyuz bir çözümü yoksa formül seçeneğine dönmek zorundayım
düzenlediğiniz var olan kod 12 nolu satırdaki tüm hücrelerin hane sayısı her zaman eşit olsaydı muhteşem bir seçenek ti ama maalesef her hücredeki hane sayısı farlı oluyor

Ömer BARAN · 23 May 2020

Aşağıdaki kod yapısı istenilen sonucu verecektir.

VBA:

  For beden = 4 To 113
        If S1.Cells(Plan, beden) <> "" Then
            yeni = S2.Cells(Rows.Count, "A").End(3).Row + 1
            S2.Cells(yeni, "A") = "q:" & S1.Cells(Plan, beden)           
            If S1.[B12] = "" And S1.[B13] = "" And S1.[B14] = "" Then
                S2.Cells(yeni + 1, 1) = "s:" & S1.Cells(12, beden)
            ElseIf S1.[B12] <> "" And S1.[B13] > 0 And S1.[B14] = "" Then
                S2.Cells(yeni + 1, 1) = "s:" & Left(S1.Cells(12, beden), S1.[B13]) & "x" & _
                                                Replace(S1.Cells(12, beden), Left(S1.Cells(12, beden), S1.[B13]), "")
            ElseIf S1.[B12] <> "" And S1.[B14] > 0 And S1.[B13] = "" Then
                S2.Cells(yeni + 1, 1) = "s:" & Replace(S1.Cells(12, beden), Right(S1.Cells(12, beden), S1.[B14]), "") & _
                                                "x" & Right(S1.Cells(12, beden), S1.[B14])
            End If
        End If
    Next
  End If
Next

.

Akif59 · 23 May 2020

Merhaba Sayın BARAN
Elinize emeğinize sağlık problemsiz bir şekilde çalışıyor sorun çözüldü

	boşsa atla dolu ise kopyala kodu muhsar 3 Tem 2019 Makro Soruları
	Makro ile eğer boşsa işlem yapma kriterini ekleme AhmetRasim 15 Eki 2019 Makro Soruları
	Eger Hucre Boşsa Otomatik 0 Yazması bekolinux 28 Tem 2022 Makro Soruları
	Tarih Koşuluna Göre Sütun Bilgilerini Koruma ExcelDepo 3 Tem 2024 Makro Soruları
	VBA üç koşulun kontrol edilmesi ErolU 23 Eki 2021 Makro Soruları