veri aktarımı hakında sorun

[ikikan]

kırmızı olan bölüm "B" ise işe yarıyor ama "B:BR" aralıgında neden işe yaramıyor


If Range("Q4").Text = 0 Then
Sheets("veri").Range("B:BR" & Bos).Value = ""

 

[Ömer]

Merhaba,

Başlangıçı belirtmemişsiniz.

Sheets("veri").Range("B1:BR" & Bos).Value = ""

Mavi bölüm.

 

[ikikan]

Sheets("veri").Range("B1:BR" & Bos).Value = ""

bu bölüm değişken olmalı

başlangıc belirtirsem diğer verileride siliyor

 

[Ömer]

O halde değişkene bağlamanız gerekir

deg = 1
Sheets("veri").Range("B" & deg & ":BR" & Bos).Value = ""


gibi.

Yada,

Sheets("veri").Range("B" & Bos & ":BR" & Bos).Value = ""

İstediğiniz bu mu?

 

[ikikan]

Teşekür

Teşekürler oldu

 

[ikikan]

ÖMER BEY BİR SORU DAHA SORABİLİRMİYİM

Sheets("veri").Range("M" & Bos).Value = ".kg"

Bu formülü "M" ve "N" ve "R" hücrelerinde olması için ne yapabilirim aralık vermeden


Sheets("veri").Range("M" , "N" , "R" & Bos).Value = ".kg" diye denedim olmadı

 

[Ömer]

Sheets("veri").Range("M" & Bos & ":N" & Bos & ",R" & Bos).Value = ".kg"

Bu şekild deneyin.

 

[ikikan]

Sheets("veri").Range("M" & Bos & ":N" & Bos & ",R" & Bos).Value = ".kg"

Bu şekild deneyin.

ÖMER BEY FORMÜLÜ GÖNDERDİM DEDİGNİZ ŞEKİLDE ARALIKLARI ALIYOR ÖRNEK M DEN W KADAR OLANI

If Range("Q4").Text = 0 Then
Sheets("veri").Range("B" & Bos & ":BR" & Bos).Value = ""


ElseIf Range("U4").Text = 0 Then
'-------------- ÖLÇÜT



'------------------DİNGİL MESAFE
Sheets("veri").Range("B" & Bos).Value = Range("Q4").Text
Sheets("veri").Range("C" & Bos).Value = ".mm"
Sheets("veri").Range("D" & Bos & ":J" & Bos).Value = ""

'------------------DİNGİL KAPASİTE
Sheets("veri").Range("K" & Bos).Value = Range("O5").Text
Sheets("veri").Range("L" & Bos).Value = Range("S5").Text
Sheets("veri").Range("M" & Bos).Value = ".kg"
Sheets("veri").Range("N" & Bos & ":T" & Bos).Value = ""
'------------------DİNGİL YÜKÜ
Sheets("veri").Range("U" & Bos).Value = Range("O6").Text
Sheets("veri").Range("V" & Bos).Value = Range("S6").Text
Sheets("veri").Range("W" & Bos).Value = ".kg"
Sheets("veri").Range("X" & Bos & ":AD" & Bos).Value = ""

'------------------NET DAGILIM
Sheets("veri").Range("AF" & Bos).Value = Range("AX19").Text
Sheets("veri").Range("AG" & Bos).Value = ".kg"
Sheets("veri").Range("AH" & Bos & ":AN" & Bos).Value = ""

'------------------ÇIPLAK ŞASİ DAGILIM
Sheets("veri").Range("AP" & Bos).Value = Range("T20").Text
Sheets("veri").Range("AQ" & Bos).Value = ".kg"
Sheets("veri").Range("AR" & Bos & ":AX" & Bos).Value = ""

'------------------Qİ YÜK DAGILIM
Sheets("veri").Range("AZ" & Bos).Value = Range("AX17").Text
Sheets("veri").Range("BA" & Bos).Value = ".kg"
Sheets("veri").Range("BB" & Bos & ":BH" & Bos).Value = ""

'------------------Gİ YÜK DAGILIM
Sheets("veri").Range("BJ" & Bos).Value = Range("AX14").Text
Sheets("veri").Range("BK" & Bos).Value = ".kg"
Sheets("veri").Range("BL" & Bos & ":BR" & Bos).Value = ""

 

[Ömer]

Bu mesajınızı anlamadım.

 

[ikikan]

Bu mesajınızı anlamadım.

Sheets("veri").Range("M" & Bos & ",W" & Bos & ",AG" & Bos & ",AQ" & Bos & ",BA" & Bos & ",BK" & Bos).Value = ".kg"

BU ŞEKİLDE OLDU ÖMER BEY

 

[ikikan]

Veri aktarmada sorun

If Range("Q4").Value = 0 Then
'-------------- BOŞ
Worksheets("veri").Cells(sat, "B:BR").Value = ""

ElseIf Range("U4").Value = 0 Then


bu kod neden işe yaramıyor