תחומים - פורום חרדי מקצועי

@clickone ראיתי באיזה פורום, שמישהו כתב שמאז שלחץ על הקישור ג'מייל עושה לו בעיות (כמו לעוד הרבה אנשים..) בסגירת הדפדפן
אבל זה נראה לי בדיחה, מן הסתם גם לך....

כשמאשרים להם התחברות לחשבון, הם מוחקים מיילים וכמובן שולחים הודעות בשמך לכל האנשי קשר...

כל המיילים שקבלת, זה בגלל חברים שלך שלחצו על הקישור (עריכה: ואישרו גישה לחשבון)...

@yossiz
הידד!!!!
לא מאמין!

ת'האמת שאני גם ניסיתי להשפיע עליו, אבל כנראה שאני לא מספיק מוצלח כמוך...

@dovid אמר בצמצום מספר הקטגוריות בפורום, ועוד.:

אני רוצה במקום זה לפתוח קטגוריה בה כל אחד יכול לפתוח נושא (ואף אחד לא יוכל להגיב), ושם יוכלו לשים פרסומת לעסק מכל סוג (לאו דוקא אומנותי, גם זגגות) ותמונות ומלל ככל הנצרך ובאופן חופשי מרוב חוקי הפורום, מעין מיני אתר.
יוכלו לשים את קישור לנושא בחתימה וככה להיחשף ללקוחות.
עריכה: התכנית הבסיסית לא תעלה כסף בשום שלב.

@dovid אמר בחדש: הטמעת קוד מcodepen:

@WWW @יוסף-בן-שמעון
אין לי בכלל סביבת טסטים...

התכוונתי למשהו אחר, (קבוצה). עריכה: אני רואה בצילומסך שזה עובד גם שאתה לא מחובר לחשבון.

אולי ריענון קשיח יעזור?

לא .

אולי תנסו גם בגלישה כאורח?

גם לא.

@יוס תשתמש בספרייה.
יש ספרייה נפוצה PHPMailer, שם יש מתודה להוספת קבצים:

<?php
// Import PHPMailer classes into the global namespace
// These must be at the top of your script, not inside a function
use PHPMailer\PHPMailer\PHPMailer;
use PHPMailer\PHPMailer\SMTP;
use PHPMailer\PHPMailer\Exception;

// Load Composer's autoloader
require 'vendor/autoload.php';

$mail = new PHPMailer();

// מאת
$mail->setFrom('****@****.com', *****);
// כתובת להשבה
$mail->addReplyTo('*****@******.com', '****');
// כתובת למשלוח
$mail->addAddress('*****@*******.com', "******");
//עותק
$mail->addBCC(******);
// כותרת
$mail->Subject = "כותרתתתתתת";
// האם זה HTML
$mail->isHTML(true);
//גוף המייל
$mail->Body = 'בלה בלה בלה';

//עבור SMTP
// (שם משתמש (- כתובת המייל של ג'מייל
$mail->Username ='******';
// סיסמא
$mail->Password = '*****';
$mail->Host = "smtp.gmail.com";
$mail->Port = 587;
$mail->SMTPAuth = true;
$mail->SMTPSecure = "tls";

$mail->CharSet = 'UTF-8';

//צירוף קובץ
$email->AddAttachment( $file , 'שם.pdf' );
//צירוף קובץ
$email->AddAttachment( $file2 , 'שם2.pdf' );

//שליחה
$mail->send();

בהצלחה!
צריך להתקין את הספרייה:

composer require phpmailer/phpmailer

@nigun מערכת השבת אבידה.

@dovid אמר בPHP- קטע קוד שגוי, מהי השגיאה?:

א. כדי ללכוד שגיאות תשתמש בtry ותעשה echo לשגיאה.

בכלל, כשאוחזים בשלבי הניסוי וה(ט)[ת]עייה, מומלץ להגדיר שיוצג שגיאות ולא שיתקבל HTTP 500 ריק.
שים בתחילת הקוד:

ini_set('display_errors' ,'1');
ini_set('display_startup_errors', 1);
error_reporting(E_ALL);

@אהרן
Excel VBA - Delete empty rows
Ask Question

11

6
I would like to delete the empty rows my ERP Quotation generates. I'm trying to go through the document (A1:Z50) and for each row where there is no data in the cells (A1-B1...Z1 = empty, A5-B5...Z5 = empty) I want to delete them.

I found this, but can't seem to configure it for me.

On Error Resume Next
Worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
vba excel-vba excel
shareedit
edited Jul 9 '18 at 19:34

Community
11
asked Feb 21 '12 at 14:55

CustomX
6,2882768106
1
You have tried substituting A:A with C:C, have you? – GSerg Feb 21 '12 at 14:59
Serg, it seems I was wrong explaining my problem. I need to check an entire row (A1-Z1) to see whether it's empty or not, and this down to A50-Z50. – CustomX Feb 21 '12 at 15:03
So a "whole row" for your purposes is columns A-Z and not like AA...ZZ...? – Brad Feb 21 '12 at 15:10
Yes, column A1 to Z1 is an entire row for me. If there aren't any items in any of these cells (A1 to Z1) then the row is empty and can be deleted. – CustomX Feb 21 '12 at 15:12
add a comment
6 Answers
active oldest votes

19

How about

sub foo()
dim r As Range, rows As Long, i As Long
Set r = ActiveSheet.Range("A1:Z50")
rows = r.rows.Count
For i = rows To 1 Step (-1)
If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
Next
End Sub
shareedit
answered Feb 21 '12 at 15:15

Alex K.
139k21202239
1
Works like a charm! – CustomX Feb 21 '12 at 15:21
1
Wasn't too bad, just bit too long for my needs atm. Someone else who might have the same problem will be helped with your example though – CustomX Feb 21 '12 at 15:41
add a comment

11

Try this

Option Explicit

Sub Sample()
Dim i As Long
Dim DelRange As Range

On Error GoTo Whoa

Application.ScreenUpdating = False

For i = 1 To 50
    If Application.WorksheetFunction.CountA(Range("A" & i & ":" & "Z" & i)) = 0 Then
        If DelRange Is Nothing Then
            Set DelRange = Range("A" & i & ":" & "Z" & i)
        Else
            Set DelRange = Union(DelRange, Range("A" & i & ":" & "Z" & i))
        End If
    End If
Next i

If Not DelRange Is Nothing Then DelRange.Delete shift:=xlUp

LetsContinue:
Application.ScreenUpdating = True

Exit Sub

Whoa:
MsgBox Err.Description
Resume LetsContinue
End Sub
IF you want to delete the entire row then use this code

Option Explicit

Sub Sample()
Dim i As Long
Dim DelRange As Range

On Error GoTo Whoa

Application.ScreenUpdating = False

For i = 1 To 50
    If Application.WorksheetFunction.CountA(Range("A" & i & ":" & "Z" & i)) = 0 Then
        If DelRange Is Nothing Then
            Set DelRange = Rows(i)
        Else
            Set DelRange = Union(DelRange, Rows(i))
        End If
    End If
Next i

If Not DelRange Is Nothing Then DelRange.Delete shift:=xlUp

LetsContinue:
Application.ScreenUpdating = True

Exit Sub

Whoa:
MsgBox Err.Description
Resume LetsContinue
End Sub
shareedit
answered Feb 21 '12 at 15:13

Siddharth Rout
115k14153205
Thank you for your effort, not sure whether it works, but it's a bit longer than the snippet I accepted. – CustomX Feb 21 '12 at 15:22
@Tom: It is longer because I have used the right way to code with all error handling. Anyways leave it – Siddharth Rout Feb 21 '12 at 15:25
Oh sorry I only needed a quick fix though. Thanks for the thorough example though – CustomX Feb 21 '12 at 15:40
add a comment

2

I know I am late to the party, but here is some code I wrote/use to do the job.

Sub DeleteERows()
Sheets("Sheet1").Select
Range("a2:A15000").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
shareedit
edited Dec 12 '18 at 21:55

Kingsley
2,71221225
answered Dec 12 '18 at 21:45

Smiley Lando
464
add a comment

0

This worked great for me (you can adjust lastrow and lastcol as needed):

Sub delete_rows_blank2()

t = 1
lastrow = ActiveSheet.UsedRange.Rows.Count
lastcol = ActiveSheet.UsedRange.Columns.Count

Do Until t = lastrow

For j = 1 To lastcol
'This only checks the first column because the "Else" statement below will skip to the next row if the first column has content.
If Cells(t, j) = "" Then

    j = j + 1

        If j = lastcol Then
        Rows(t).Delete
        t = t + 1
        End If

Else
'Note that doing this row skip, may prevent user from checking other columns for blanks.
    t = t + 1

End If

Next

Loop

End Sub
shareedit
edited Jan 17 at 0:39

Mike
134
answered Feb 27 '18 at 15:10

IRENE G
31014
add a comment

0

In order to have the On Error Resume function work you must declare the workbook and worksheet values as such

On Error Resume Next
ActiveWorkbook.Worksheets("Sheet Name").Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
I had the same issue and this eliminated all the empty rows without the need to implement a For loop.

shareedit
answered Apr 30 '18 at 14:39

Jerome
1
add a comment

0

To make Alex K's answer slightly more dynamic you could use the code below:

Sub DeleteBlankRows()

Dim wks As Worksheet
Dim lngLastRow As Long, lngLastCol As Long, lngIdx As Long, _
lngColCounter As Long
Dim blnAllBlank As Boolean
Dim UserInputSheet As String

UserInputSheet = Application.InputBox("Enter the name of the sheet which you wish to remove empty rows from")

Set wks = Worksheets(UserInputSheet)

With wks
'Now that our sheet is defined, we'll find the last row and last column
lngLastRow = .Cells.Find(What:="", LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
lngLastCol = .Cells.Find(What:="", LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

'Since we need to delete rows, we start from the bottom and move up
For lngIdx = lngLastRow To 1 Step -1

    'Start by setting a flag to immediately stop checking
    'if a cell is NOT blank and initializing the column counter
    blnAllBlank = True
    lngColCounter = 2

    'Check cells from left to right while the flag is True
    'and the we are within the farthest-right column
    While blnAllBlank And lngColCounter <= lngLastCol

        'If the cell is NOT blank, trip the flag and exit the loop
        If .Cells(lngIdx, lngColCounter) <> "" Then
            blnAllBlank = False
        Else
            lngColCounter = lngColCounter + 1
        End If

    Wend

    'Delete the row if the blnBlank variable is True
    If blnAllBlank Then
        .rows(lngIdx).delete
    End If

Next lngIdx

End With

MsgBox "Blank rows have been deleted."

End Sub
This was sourced from this website and then slightly adapted to allow the user to choose which worksheet they want to empty rows removed from.

shareedit

@הפצת-אנקי כתב בהפעלת קובץ בJS:

האם יש דרך להפעיל קובץ במחשב באמצעות JS מדף שמקורו במחשב המקומי?

יש דרך מסובכת לעשות את זה, שזה מצריך להתקין סרביס במחשב שמאזין לפורט מסויים, לא נראה לי פתרון בשבילך.

@dovid אמר בקבוצת התכנות הסגורה:

בינתיים אני אהפוך אותה ללא זמינה כדי שנוכל לארגן אותה מחדש אם יידרש ו/או לשקול פרמטרי צירוף חדשים וכדומה.

עצוב מאד
יש צד שכל החומר יהיה נעול לנצח?

אם זה לזמן מוגבל אני מבין, אבל אם זה לנצח, אולי כדאי לשאול את המשתמשים אם הם מסכימים לפרסם את החומר.

בכללי, חבל מאד שזה נסגר.

@שמחה-זו-הסיסמא אמר בAPI לקבלת מידע יהודי על תאריך:

האם ישנו API שאני אוכל לשלוח איליו תאריך ולקבל תשובה האם היום הזה הוא שבת/חג/צום וכו ?

לא צריך API, תוכל לבדוק בקוד, באיזה שפה מדובר?

@upsilon01 אני חושב שזה זלזול לכתוב ככה.
אם @yossiz כתב שמתכנתים "מנוסים ומבינים" עושים ככה, הוא לא התכוון לכאלה ש "לא כ"כ מבינים את ההבדלים"...

@שוהם307 אמר בתכנות | איך להתחיל?:

@מוטי-אורן @davidnead תודה,
אבל אני מוכרח להבין אחת ולתמיד, מה יקדם אותי בעולם התכנות לפחות כצעד ראשון, הרי אם כל העולם משתמש בשפה X אין טעם להשקיע אפילו לא כצעד ראשון בשפה Y,
הלא כן?

כבר כתבו למעלה, שלימוד שפת תכנות ראשונה יעזור לך גם אם לעולם לא תשתמש בו.

@נ-נח אמר בעזרה | שינוי שם קובץ מhtml וjs:
> והשני מוריד בלי לשנות שם

הקוד הראשון לא מוריד,

אצלי זה לא מוריד בכלל אלא נתקל בשגיאה.
יש שמה טעות בתשובה, צריך להיות כך:

<input type="file" id="files" name="files"/>
<input type="text" id="newname"> <button>rename</button>
<div id="output"></div>
<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.3.1/jquery.min.js"></script>
<script>
	$(function(){
		$('button').click(function(){
			let file = $('#files')[0].files[0];
			renameFile(file, file.type, $('#newname').val());
		});
		
		function renameFile(file, typeFile, newname) {
			var reader = new FileReader();
			reader.onload = function(event) {
				$('#output').append('<a href="data:'+ typeFile +';,'+ encodeURI(event.target.result) +'" download="'+newname+'">'+newname+'</a>');
			}
			reader.readAsBinaryString(file);
		}
	});
</script>

אצלי עובד מצוין, גם על שמות בעברית.
התיקון בשורות 8 - 9.

עריכה: מעניין שהשתנה סדר התשובות לאחר שנכנסתי לחשבון...

@dovid יש אפשרות בstackoverflow לערוך תשובות? ולמה זה לא נותן לי?

(להוסיף הערה אני לא יכול כי אין לי מוניטין).

@ש-ב-ח ההבדל בין require ו include, זה במקרה שהקובץ לא קיים והייבוא נכשל, require יזרוק שגיאה, ו include ימשיך הלאה, רק שזה יכול לגרום לשגיאות בלתי צפויות בהמשך הקוד.

@שואף השאלה למה אתה פונה לכיוון הזה, שאני מניח שגם אם יימצא הפתרון, זה יהיה בזבוז משאבים בכל שאילתה.
למה שלא תעדכן את הנתונים בצורה תקנית פ"א בטבלה.
ומהיום לדאוג שהקוד שמבצע את הרישום בטבלה הראשונה יעשה את זה בצורה תקנית, וימחוק את כל התווים הנ"ל?

או שבאמת אתה רוצה לעשות את השאילתא הזאת רק פעם אחת?

@clickone החלטת להביא לפה את כל הבדיחות מהארכיון?

אני יודע למה, כי אין לנו גישה לשם...

ולכבוד ר"ח אדר, אז...

@aiib יש גם נכים נפשית